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THE FEAR STORM II 
"THE FEAR , la piedra mágica, ha 
sido robada, STORM debe recupe 
rarla, vafendus tan sólo de su * ia 


HYPERBOWL 

En el año 3 600 el hockey sobre hielo 
ha alcanzado el nivel de máxima tec¬ 
nología. Diez clases diferentes de 
naves, se enfrentan en un campo 
metálico. 
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TERMINUS 

Un grupo de gamtx-frm, que 
el cánk . por Oorx*-pasa ha dtcídio.- 
rescatar a su líder del; v. ta pnsiór 
TfFMINUS 


BACK TO REALITY 
Intenta volver a la rt»** v»‘ Sólo 
que salir, de le estere inugravitz 


Y otros 120 juegos mas. 
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TALLER. (Dos señoritas muy 
especiales). Estudiamos dos 
impresoras de Seikosha con 
características fnera de lo 
común: MP-1300AI y SL-80AI. 
Pag. 34. 








































USUARIO PC. (Integrated 
También Softronics aporta sn 
granito de arena al campo de 
los paquetes integrados: 
Integrated 7. Pág. 20. 
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A TOPE. 

Head over Hells: La guinda en 
el pastel de los programadores 
del popularisimo Batman. 

Pág. 76. 


SOLO PCW. (Un cuchillo para PCW). Para saberlo todo sobre el disco del PCW, sólo 
nos nace falta el afilado cuchillo (Knife) de Ofites Informática. Pág. 16. 
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NOVEDADES ENFA FALSOS RUMORES 
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que conectarlo a un Convertidor TV, 
que se obtiene tan sólo por 10.000 ptas. 
más. 

Otra noticia que ya sea desinforma¬ 
ción, o ya por puro sensacional ismo, se 
había propagado por el sector, era la 
desaparición del PCW 8512. i Por lo vis¬ 
to pretendían dejar sin ordenadores a 
Amstrad! 



E nfa Ibérica, S.A. y Sentinel Com¬ 
puter Products Europe, han firma¬ 
do un acuerdo por el cual Enfa 
Ibérica importa y distribuye en exclusi¬ 
va para España, los discos de 5 1/4,3 
1/2 y estuche de limpieza para unidad 
de disco, así como su Data-Cartridge. 

De esta forma, queda cubierta en to¬ 
dos los países de Europa la distribu¬ 
ción de los productos Sentinel. 

Enfa Ibérica ha cambiado reciente¬ 
mente sita en Senda Galiana, s/n. Edifi¬ 
cio Enfa. Polígono «Escofet». 28820 
Coslada (Madrid). Con el Teléfono (91) 
672 72 11. 


LA VANGUARDIA DE LA 
NOTICIA 


S egún publica el prestigioso diario 
catalán La Vanguardia, el merca 
do informático español creció un 
18,'8% durante el año pasado, con lo 
que continúa siendo uno de los de más 
rápido desarrollo entre los de Europa 
Occidental, donde el aumento de acti¬ 
vidad ha sido bastante más modesto, 
debido a un cierto grado de saturación. 

Entre las empresas de mayor creci¬ 
miento en este sector destacan Ams¬ 
trad, Hewlett Packard y Digital. En el ca¬ 
so concreto de Indescomp, el creci¬ 
miento alcanzado se cifra en torno al 
85%. 

Por otra parte, y refiriéndose de nue¬ 
vo al mercado informático en general, 
el sector de ordenadores profesionales 
experimentó un crecimiento del 80% 
durante este mismo período. 


NUEVO MODULADOR 
DE TV 

PARA AMSTRAD 

L a compañía LSB ha lanzado al 
mercado el pasado mes de junio, 
un nuevo y a la vez esperado pro¬ 
ducto, diseñado y fabricado en España 
por MHT Ingenieros. Se trata de un mo¬ 
dulador de TV para Amstrad Modelo M- 
1 . 


S egún parece, en el affaire «desa¬ 
parición de los CPC», los menti- 
deros funcionaron a pleno rendi¬ 
miento, de manera que Indescomp se 
ha tenido que apresurar para conse¬ 
guir atajar el rumor, que por esta oca¬ 
sión no pasó de ser mera antesala de la 
noticia, sin que ésta llegara a producir¬ 
se efectivamente. 

Fuentes dignas de crédito, porque 
en este asunto qué fuente puede haber 
más solvente que el propio Indescomp, 
aseguran que los Amstrad CPC están 
más vivos que nunca. 

Durante el primer cuatrimestre del 
presente año, los ordenadores CPC 
464 y CPC 6128, se han visto afectados 
por una falta de suministro debida a la 
gran demanda internacional de este 
producto. Por esta razón, en España só¬ 
lo se han vendido en este período 
12.000 unidades. 

A partir de este momento, Amstrad 
ya ha anunciado que los CPC están 
disponibles y existe la previsión de su¬ 
perar las 15.000 unidades en el 2.° cua¬ 
trimestre. Una buena y esperada noti¬ 
cia para los adictos de esta gama. 

Por otra parte, hasta el 31 de julio, 
Amstrad ofrece la posibilidad de trans¬ 
formar el monitor en color del CPC 464 
ó 6128 en un televisor de 14", sin más 


Este periférico es compatible con los 
modelos CPC 464, 664 y 128, con el 
que podremos conectar el ordenador 
(unidad central) a cualquier TV bien di¬ 
rectamente, bien a través de vídeo, 
prescindiendo, por lo tanto, del monitor. 

Entre las numerosas utilidades que 
posee podemos destacar: 

— Posibilidad de conectar una TV en 
color en aquellos usuarios con monitor 
verde. 

— Posibilidad de grabar en vídeo el 
desarrollo en pantalla de cualquier pro¬ 
grama. 

- Posibilidad de insertar cabeceras 
o anotaciones en general en cintas de 
vídeo previamente grabadas. 

— Posibilidad en casos de traslados 
del ordenador de mover únicamente la 
unidad central y el modulador (siempre 
que se tenga una TV en destino sin te¬ 
ner que hacer lo propio con el monitor). 


Especificaciones: 

— Tensión de alimentación de 220 
voltios. 

- Conexiones con el ordenador de 
5 voltios, 12 voltios o RGB 

- Salida de señal en canal UHF 

El precio de este nuevo periférico os¬ 
cilará sobre las 10.000 ptas., y si esta¬ 
mos interesados podemos dirigirnos a 
LSB, sito en la calle Sánchez Pacheco, 
78. 28002 Madrid O al Teléfono (91) 
413 92 68. 
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No obstante, y en favor del «inventor» 
de la noticia, hay que decir que quizás 
ha oído campanas, sin saber dónde. Lo 
cierto es que en los planes de Amstrad 
Inglaterra, se cuenta abandonar la fa¬ 
bricación PCW 8512, al destinar esta 
gama, ya sólo integrada por el 8256, 
exclusivamente al proceso de textos, 
objetivo para el cual no son indispen¬ 


sables las 512K m la unidad de disco 
adicional que aporta el 8512. 

Aunque esta opinión es compartida 
por Indescomp, el distribuidor nacional 
comprende que las peculiares cir¬ 
cunstancias del mercado español, han 
llevado a muchos consumidores a de¬ 
dicar el PCW a tareas algo más allá del 
simple proceso de texto, motivo por el 


cual ha decidido proceder por su cuen¬ 
ta y riesgo a la distribución de kits de 
ampliación, al parecer de producción 
nacional, para que el que así lo desee, 
pueda convertir su PCW 8256 en un 
8512, con una sencillísima operación 
de instalación capaz de ser llevada a 
cabo por cualquiera, por tan sólo 
30.000 ptas. 




HEMOS CRECIDO... 

— Y POR ESO NOS CAMBIAMOS 


NUESTRA NUEVA DIRECCION 
A PARTIR DEL 18 DE MAYO ES: 

NUÑEZ MORCADO, 11 - 28036 MADRID 

Y EL TELEFONO: (91) 314 18 04 

(AHORA, CON MUCHAS LINEAS) 


¡i ACTUALIZANOS EN TU AGENDA!! 




















































CUANDO T ERMINE DEll 
^^■MANEJAR E;t 


Mareiar el AMSTRAD PC 1512 
es muy sencillo 

Basta mover la flecha mediante el ratón 
y elegir la opción que usted desea. 

Así de SIMPLE. 


VEA el contenido de su archivo. El programa GEM SELECC I ONE el grupo de documentos con el 

(suministrado con el equipo) le muestra las carpetas que usted va a trabajar. Lleve la flecha sobre la ar¬ 
que contienen los documentos que necesita en su peta elegida y PULSE el botón del ratón, 

trabajo. 




MESA DI TRABAJO 

Ante usted aparecen, cuando lo precise, los ele¬ 
mentos necesarios para realizar las rutinas diarias: 
agenda, calculadora, calendario, reloj, block de ro¬ 
tas.. 



FICHEROS 

Todos los datos que usted precisa, clasificados en 
el orden que haya establecido y dispuestos para su 
uso, cuando los necesite. 



DISEÑO 


Los programas de GEM le facilitan el diseño selec¬ 
cionando, mediante el ratón, las herramientas nece¬ 
sarias para cada caso. 


PRO 

Combm 
de date 
piesent. 



La puesta al día de los asientos contables de su ac¬ 
tividad o su negocio es posible con la facilidad que 
le proporcionará disponer del programa especifico. 



PREVISIONES FINANCIERAS 

Realice sus previsiones económicas mediante la uti¬ 
lización de una Hoja de Cálculo electrónica. Estima¬ 
ciones, estadísticas, presupuestos... serán efectua¬ 
dos con rapidez y máxima eficacia. 





GRAFICOS 

Traslade a gráficos profesionales el resultado de su 
actividad o su negocio. El resumen de sus datos ne¬ 
cesita este complemento ideal. 



C/Aravaca, 22. 28040 Madrid. Tel 459 30 01 Télex 47660 INSCf 
Delegación Cataluña: C/Tarragona, 110. Tel. 425 11 11 08015 Ba I 



459 22 
ia. Oeleg. 



























































































































EER ESTE ANUNCIO, 
SíE ORDENADOR... 






0OOM EM LA vSnCHQA 


CONSULTE el documento elegido estudiando y 
pensando las modificaciones que quiere realizar. 


TRABAJE comunicándose con el ordenador en 
castellano mediante la acción del ratón y el teclado, 
introduciendo los datos que necesite 


er del programa 
cesite. 


I 




¡á mM 


PROCESADOR DE 1KTOS 

Combinando la acción del ratón con la introducción 
Je datos mediante el teclado, puede resolver sus 
¡'esentaciones de escritos, documentos, cartas.. 


YA LO SABE. 

ASI SU NEGOCIO NO SE LE ESCAPARA 
DE LAS MANOS. 


OEM WRITE 
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DAN DARE 

Empiece el día con energía... salvando en un par de ocasiones a la 
Tierra de un horrible final a manos de malévolos y verdes 
alienígenas, deporte de moda en estos días. 


D an Daré, el mejor de nuestros pi¬ 
lotos, el mejor de nuestros ofi 
cíales, salvador de la Tierra en 
más de una centena de ocasiones, ha 
sido homenajeado por todas sus haza¬ 
ñas en el programa de televisión «ES¬ 
TA ES TU VIDA». 

Allí, en los estudios, se encontraban 
sus mejores amigos: Digby, Stripey, el 
profesor Peabody, Sir Hubert... Todos 
tuvieron palabras de alabanza para Dan, 
y los espectadores del estudio estalla¬ 
ban a aplausos entre intervención e in¬ 
tervención, hasta que, en un momento 
dado, las pantallas del control se dis¬ 
torsionaron con una interferencia, y an¬ 
te los ojos aterrados de todos los pre¬ 
sentes apareció el malvado Mekon, 
Emperador del Mal 
Se hizo el silencio en la sala, y Me¬ 
kon, con voz profunda y penetrante, 
empezó a hablar en tono amenazante: 
«Oz voy a dar pa er pelo, marditoz terrí¬ 
cola. Oz he mandao un mizil que ze or 
van a cae las oreja, idigo!». El público, 
aterrado por tan elocuentes palabras, 
sólo tenía ojos para invocar ayuda a 


Dan Daré, el cual, recordando una si¬ 
tuación parecida de su colega Bat Man, 
probó pedir Casera, y ante el resultado 
negativo de la estratagema, levantando 
los ojos hacia Mekon, pronunció de 
manera firme las siguientes palabras: 
«¡Que te has creído tú eso, ahora mis¬ 
mo voy y me compro el número Espe¬ 
cial de Verano de Tu Micro Amstrad, 
que viene el mapa de este juego y có¬ 
mo liquidarte, fastidíate!» Tras lo cual, la 
sala rompió en un mardeaplausos y ví¬ 
tores. 

La comitiva acompañó a Dan y sus 
amigos hasta la nave Anastasia, com¬ 
pañera de tantas aventuras, para partir 
rumbo hacia la base de Mekon, y evitar 
la catástrofe. Nuestros héroes se intro¬ 
dujeron en la nave, la cual, después de 
la puesta a punto, revisión, contacto, y 
la preceptiva cuenta atrás, se alzó es¬ 
truendosamente hacia los aires, entre 
el júbilo del público allí congregado, 
para volver a bajar rápidamente, pues 
la base de Mekon se encuentra una 
manzana más allá de los estudios de 
televisión. 



¡digby capturado! 

Nada más llegar, Dan ordenó a Dig- 
by que se dejará capturar para que la 
aventura cobrase en emoción. Se tapó 
los ojos con las manos para no ver el lu- 
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gar donde trasladaban a su siempre 
querido buen amigo, para así tener que 
buscarlo por la laberíntica base, de ma¬ 
nera que gastaría mucho tiempo y la 
misión sería casi imposible. 

Ante su desilusión Dan lo encontró 


mucho antes de lo esperado, en una de 
las primeras habitaciones interiores, 
allí donde en el mapa aparece el nom¬ 
bre de su amigo, pero rápidamente re¬ 
cobró la moral pues, para rescatarlo, 
habría de encontrar las cuatro piezas 


de una pasarela, las cuales se hallaban 
desperdigadas por toda la base. Junto 
a Digby se encontraba el botón de au- 
todestrucción de la base, pero él no lle¬ 
gaba a alcanzarlo. Había que ponerse 
en marcha, apenas quedaba tiempo... 

Los guardias de la base, súbditos de 
Mekon, son los Treens, androides vola¬ 
dores que enviarán al calabozo a Dan 
al menor contacto. Afortunadamente, el 
oficial posee una potente pistola láser, 
y un gatillo nervioso. Las cámaras de la 
base también están dotadas de lanza¬ 
dores de rayos antiestamínicos, es de¬ 
cir, que restan energía. 

Dan liquidó a unos cuantos Treens 
antes de entrar por el primer ascensor 
que encontró, el cual lo trasladó hacia 
las profundidades de la base. En una 
pequeña vuelta de reconocimiento, en¬ 
contró Treens, lanzadores de rayos, y a 
Digby (habitación 66). Supuso que cer¬ 
ca debía andar alguna pieza de la pla¬ 
taforma, así que subió, con ese instinto 
que sólo poseen los grandes héroes, 
por el ascensor por el que había llega 
do hasta Digby, hasta que no pudo su¬ 
bir más. 

Miró a ambos lados, observó con el 
rabillo del ojo el plano que viene impre¬ 
so en la revista, y decidió marchar ha¬ 
cia la derecha, saltando alguna de las 
torres que componen el escondrijo de 
Mekon, alcanzando (habitación 11) un 
ascensor de sólo bajada. Esperó un 
momento; parecía que estaba ocupa¬ 
do, y descendió hasta donde no pudo 
hacerlo más. Allí, en la estancia de la 
derecha, se hallaba la primera pieza de 
la plataforma. 

Ya con ella bajo el brazo, volvió por el 
mismo camino por el que había venido, 
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salvando algunos obstáculos, y algu¬ 
nos Treens, hasta llegar al calabozo del 
Digby. Al colocar la pasarela, simple¬ 
mente entrando levemente en la habi¬ 
tación, instantáneamente se abrieron 
dos puertas ocultas del laberinto, una 
en la habitación 33, y otra en la 89. 


DENTRO DEL LABERINTO ■■■ 

La parte derecha de la base de Me- 
kon, está compuesta por una treintena 
de estancias situadas laberínticamente 
por causa de los ascensores, es decir, 
puedes llegar a una de ellas por medio 


de uno de ellos, pero quizás no puedas 
salir de allí por ese mismo elevador. 

Dan, un poco aburrido ya, volvió de 
nuevo hasta el mismo lugar donde en¬ 
contró la segunda pieza. Mientras se 
aproximaba podía escuchar por los al¬ 
tavoces que existían por toda la base la 
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voz de Mekon, y la de su amigo. Dan, 
atormentado por estas voces corrió 
hasta la habitación 33, donde divisó un 
orificio que le llevaría hasta una de las 
dos partes ocultas de la base. 

Al llegar, en línea recta, al primer as¬ 
censor de doble dirección que encon¬ 
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tró, bajó hasta llegar a un lugar con re¬ 
jas. Dudó por un momento, pero la 
suerte estaba de su parte, y un Treen vi¬ 
no por la izquierda, por lo cual decidió 
irse por la derecha, allí donde estaba la 
segunda pieza. 

Ahora volver se antojaba algo más 
complicado, pues debía cruzarse de 
lado a lado la parte baja de la base 
(desde la 94 hasta la 84), o buscar un 
camino alternativo por arriba, donde se 
encontraba el laberinto de ascensores. 

Tomando el primer camino, después 
de unas decenas de Treens, y algún 
que otro obstaculillo sin importancia, 
encontró por fin el ascensor de la 84. 
Subiendo un tramo, y a la izquierda, se 
encontraba Digby suplicando a Dan 
más velocidad. Desde Anastasia, Sir 
Hubert avisaba que la nave estaba ya 
calentando motores, si no volvían pron¬ 
to habrían de partir hacia los estudios 
sin ellos, y tendrían que hacer a pie los 
doscientos metros que separaban la 
base de aquéllos. 

Para llegar hasta la tercera de las 
piezas, había que internarse irremedia 
blemente en el laberinto, por lo cual tu¬ 
vo que volver por el mismo camino que 
realizó para encontrar la primera de las 
piezas, y afrontar éste desde la parte su¬ 
perior. 

Entró por la endidura de la 33 y cami¬ 
nó hasta que encontró el mismo ascen¬ 
sor de doble dirección que le catapultó 
hasta la segunda pieza; pero esta vez 
subió, y encontró que una puerta, antes 
infranqueable, había sido desbloquea¬ 
da al colocar la segunda de las piezas. 
Se encontraba Dan en la habitación 
17 . 

En la 18 había tres ascensores, de 
los cuales pasó plena y olímpicamente, 
y por fin se introdujo por el cuarto de los 
ascensores hacia abajo. Cayó sobre 
una de las plataformas de la habitación 
71, y en la 72 se encontraba el ascensor 
de doble dirección que lo transportó 
hasta la misma habitación donde se 
encontraba la tercera de las piezas. 

Ahora debía volver hasta Digby, más 
o menos por el mismo camino que re¬ 
corrió cuando recogió la segunda pie¬ 
za. Una vez allí, la plataforma se ensan¬ 
chó y otras dos puertas fueron abiertas, 
una en la habitación 28, y otra en la 84. 

La última pieza se encontraba en la 
más escondida y profunda estancia de 
la base, la habitación 98. Para llegar 
hasta ella había que internarse por la 


puerta oculta de la 28, subir unos esca- 
loncitos, y bajar por el primer ascensor 
que se encuentre (habitación 26) hasta 
abajo a más no poder. 

Ahora un garbeo hasta la habitación 
62, lugar donde hace presencia un as¬ 
censor que trasladará a nuestro héroe 
hasta la cuarta pieza. Volviendo por sus 
mismos pasos, Dan ha de colocar en la 
habitación de Digby la última porción 
de plataforma. 


EL FIN AL DE LA CU ENTA 
ATRAS 

Una última puerta se abrió en los 
confines de la base, aún no explorados. 
Dan pulsó el botón de autodestrucción 
de la base y su amigo corrió hacia la 
nave Anastasia. Ahora le tocaba a él lle¬ 
gar hasta su preciada máquina volante. 

Se acercó al ascensor de la habita¬ 
ción 67 y, bajando, observó la hendidu¬ 
ra de la puerta oculta. Se introdujo y no 
paró hasta llegar a la habitación 74. 
Arriba se encontraba Anastasia, era el 
fin de otra aventura, de nuevo culmina¬ 
da por el éxito, la cual- momento que 
aprovechó un Treen para mandar de 
nuevo a Dan al calabozo, con lo cual tu¬ 
vo que volver a realizar el mismo cami¬ 
no, liquidar al Treen que obstaculizaba 
la boca de acceso a Anastasia, y finali¬ 
zar por fin con éxito-Ja aventura. 

Mekon, desde el exterior, aún ame¬ 
nazaba a Dan y a sus amigos, con cam¬ 
biar algunos pokes del programa, de 
modo que jamás pudieran salir de allí. 
Pero era demasiado tarde, y la manza¬ 
na contigua a los estudios de televisión 
dejó de existir para siempre. 
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UN CUCHILLO 
PARA PCW 

Por fin disponemos de un editor de 
sectores para el PCW: The Knile. 


Seguramente el usuario PCW estará preguntándose 
cómo se estructuran sus discos. THE KNIFE nos 
permitirá cortar el disco en pistas, sectores o bloques 
cómodamente. 


E l programa se presenta en disco, 
con formato CF2 de CPC. Funcio¬ 
na en CP/M, tanto en el PCW co¬ 
mo en el CPC. Junto al disco se incluye 
un pequeño cuaderno de instrucciones 
muy completo. Ambas cosas se sumi¬ 
nistran en un estuche junto con la tarje¬ 
ta de garantía. 

Al efectuar un directorio del disco, 
nos encontraremos no con uno, sino 
con tres programas distintos: KNIFE, 
KNIFE2 y KNIFE2J. Además, se in¬ 
cluyen varias utilidades muy interesan¬ 
tes, cuyas aplicaciones veremos más 
adelante. 


EL EDITOR KNIFE 

KNIFE es el primer programa men¬ 
cionado en las instrucciones, se trata 
de un editor de sectores de manejo 
muy sencillo, y con el cual se puede 
examinar libremente el discoo bien mi¬ 
rar un fichero determinado. El movi¬ 
miento se puede realizar de pista en 
pista o de sector en sector 

Podemos variar el contenido del dis¬ 
co, moviendo el cursor sobre los datos 
mostrados en ese momento en la pan¬ 
talla y escribiendo donde deseemos. 
La grabación de las modificaciones só¬ 
lo se llevará a cabo cuando tomemos la 
opción del menú reescribir. 

Para buscar un determinado conjunto 


KNIFE2 muestra el sector físico com¬ 
pleto de 512 caracteres, en dos partes, 
ya que la pantalla no abarca todos los 
datos de una sola vez. 

El programa tiene comandos más 
complejos, los cuales permiten alterar 
el contenido del disco en cualquier zo¬ 
na, buscar cadenas y secuencias de 
bytes con o sin máscara. Además, per¬ 
mite editar el disco moviéndose se- 
cuencial mente, de pista en pista o de 
sector en sector. 

Antes de introducir al usuario en el 
manejo de KNIFE2J, el manual de ins¬ 
trucciones dedica un buen número de 
sus páginas a explicar detalladamente 
la estructura interna del disco Amstrad 
(y, en realidad, de cualquier disco for 


de datos, de cuya 
existencia estamos 
seguros, pero no tan- 
do de su situación, 
disponemos de una 
función que acepta ca¬ 
denas de bytes o de ca¬ 
racteres para localizarlos 
en el disco. Esta opción per¬ 
mite incluir una máscara para 
ignorar bits del byte; por ejemplo, 
para evitar distinción entre mayúscula 
y minúscula se emplea la máscara 
DFh. 

El KNIFE muestra el contenido de los 
discos como sectores de CP/M, con 
128 caracteres de longitud. Está pen¬ 
sado para usuarios con pocos conoci¬ 
mientos de la estructura del disco o, 
simplemente, para aquellos que no de¬ 
seen manejar un programa muy com¬ 
plicado. 

Estas características no significan ni 
mucho menos que se trate de un pro¬ 
grama poco útil; es sencillo. 


EL EDITOR KNIFE2J 


Antes habíamos señalado la existen¬ 
cia de otros dos programas: KNIFE2 y 
KNIFE2J. El primero está preparado 
para funcionar en el CPC, y KNIFE2J en 
el PCW. Es por tanto este último el que 
debemos utilizar siempre. 
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mateado bajo CP/M, con ligeras dife¬ 
rencias). 

Se mencionan las 40 pistas circula¬ 
res que hay en un disco Amstrad, con 
nueve sectores por pista de 512 bytes. 
También se habla de las pistas reser¬ 
vadas y de los distintos formatos admi¬ 
sibles en el CPC 

Por ultimo, y como aplicación prácti¬ 
ca de innegable utilidad, se indica la 
manera de localizar el directorio de un 
disco y de recuperar ficheros que se 
han borrado por error, ya que éstos no 
son borrados realmente; tan sólo se 
marca su reseña en el directorio. 

Existen otros conceptos más com¬ 
plejos también mencionados en las 
instrucciones del KNIFE, como las ex- 
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tensiones. Nosotros no nos «extende¬ 
remos» más, pero se trata sin duda de 
un tema muy interesante y este progra¬ 
ma nos ayudará a satisfacer nuestra 
curiosidad en todo lo relacionado con 
la estructura y utilización del disco por 
parte de CP/M. 

Podemos añadir dos detalles muy 
agradables: uno, que el programa pue¬ 
de abandonarse sin necesidad de rei- 
nicializar el ordenador, con lo cual po¬ 
demos comprobar o modificar el traba¬ 
jo efectuado inmediatamente antes 
con KNIFE o KNIFE2J desde CP/M. 
Dos, que ninguno de los programas su- 
mimNrndos está protegido, con lo cual 


podemos hacer las copias de seguri 
dad oportunas, muy necesarias traba 
jando con un programa que puede mo 
dificar el contenido del disco que lo 
contiene. 

Aprovechamos el tema de las copias 
para destacar y reafirmar la anotación 
que existe en el manual de instruccio¬ 
nes y, oculta, en el interior del programa 
KNIFE: Por favor: compre, no robe. 

LOS PROGRAMAS EXTRA Hi 

No terminamos aquí el examen al 
contenido de este conjunto de progra¬ 




mas, ya que en el disco se incluyen 
además KNCONFIG, WDEL, SDIR, 
WPIP y UÑERA, cuyo funcionamiento 


se explica detenidamente en un fichero > 
llamado READ.ME. 

KNCONFIG es un programa encar¬ 
gado de configurar el propio programa 
KNIFE2 o KNIFE2J. Permite cambiarlas 
distintas pulsaciones de teclas que 
KNIFE2 «entiende» como órdenes de 
búsqueda, etc., y alterar el numero de 
pistas que KNIFE2 espera encontraren 
el disco. Este último parámetro sólo de¬ 
be cambiarse si se tiene absoluta se¬ 
guridad de lo que se está haciendo, ya 
que puede forzar el mecanismo de la 
cabeza lectora de la unidad de disco, 
produciendo ruidos bastante desagra¬ 
dables al oído y, posiblemente, al bolsi¬ 
llo. 

WDEL es un programa que borra se¬ 
lectivamente los ficheros encontrados 
en el disco. Se utiliza igual que ERA de 


KNIFE 

EDITOR DE SECTORES 






























TUM/CRO 

□EHAMSTRAD 


CP/M, pero al indicar una expresión co¬ 
modín, WDEL pregunta si se borra o no 
cada fichero encontrado con esas ca¬ 
racterísticas. 

Es difícil borrar un fichero por error 
con WDEL, pero si esto ocurre, pode¬ 
mos recuperarlo inmediatamente con 
UÑERA. Sólo hemos encontrado un fa¬ 
llo en este programa: sí se especifica 
un nombre de fichero que no ha sido 
borrado previamente, crea uno «fantas¬ 
ma». Es complicado explicarlo, y más 
vale experimentar esto personalmente; 
es muy curioso. 

El programa WPIP es un copiador 
más sencillo que PIP, y que también 
pregunta, como WDEL, si debe o no 
efectuar el proceso con un determina¬ 
do fichero. 

Por último, SDIR es un interesante 
programa cuya función abarca las de 
DIR y SHOW, puesto que indica la lon¬ 
gitud de cada fichero y el espacio dis¬ 
ponible todavía en el disco afectado. 

Como se indica en el fichero READ.- 
ME, este programa ocupa mucho me¬ 
nos espacio que DIR y SHOW juntos, 
por lo que merece la pena eliminar es¬ 
tos últimos de nuestro disco de trabajo 
para albergar a SDIR. 


UN PROGRAMA 
IMPRESCINDIBLE 

El estudio del conjunto de programas 
KNIFE, elaborado por Hisoft y Aries 
Computer Systems resulta francamen¬ 
te positivo. Todos los programas inclui¬ 
dos son de gran utilidad en cualquier 
momento durante el trabajo en CP/M, o 
simplemente, para recuperar un fiche¬ 
ro perdido o modificar un programa sin 
necesidad de complejos editores. 

The Knife, distribuido por Ofites Infor¬ 
mática al precio de 7.900 ptas. (+IVA) 
nos parece un programa absolutamen¬ 
te imprescindible para cualquier usua 
rio Amstrad en CP/M con un mínimo de 
curiosidad e inquietud, y más aun en el 
caso del usuario PCW por tratarse de 
una novedad muy interesante. 

Título: KNIFE. 

Precio: 7.900 ptas. (+IVA). 
Distribuidor: Ofites Informática, S.A. 

Avda. Isabel II, 16, 8.° 
2001 San Sebastian 
Tel.: (943) 45 55 44 
45 55 33 
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INTEGRATED 7 es un paquete integrado de utilidad, creado por 
MOSAIC SOFTWARE, INC., y distribuido en España por 
SOFTRONIC S.A. Abarca los apartados de hoja electrónica, 
gráficos de gestión, base de datos (relacional), procesador de texto 
(con diccionario de 30.000 palabras), emulación de terminales, 
comunicaciones y correo (mailings). 


S e trata de un potente programa, 
muy fácil de utilizar, y que ofrece 
una amplia gama de capacida¬ 
des. Permite escribir informes, almace¬ 
nar listas de correo, proyectar ingresos 
futuros, elaborar gráficos de sectores, 
obtener información de otro ordenador, 
y todo ello sin abandonar el programa. 


VISION GENERAL DE 
LA APLICACION ■■ 


Cada uno de los componentes de 
INTEGRATED 7, puede compartir y 
transferir datos a través de ventanas en 
la pantalla, de la forma más fácil. Pue¬ 


den emplearse, de esta forma, datos de 
la hoja electrónica para confeccionar 
gráficos, incluir éstos en los informes, 
introducir direcciones tomadas de la 
base de datos en cartas elaboradas en 
el procesador de textos, enviar ficheros 
de datos a un ordenador remoto, etc. 


HOJA ELECTRONICA 

Para los no iniciados diremos que la 
hoja electrónica es similar a la de un li 
bro mayor de contabilidad escrito a 
mano por un contable, sobre cuyas ca¬ 
sillas se registran las diferentes opera 
ciones. 
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La hoja electrónica facilita el almace¬ 
namiento de estadísticas financieras, 
realizando cálculos sofisticados, 
proyecciones de situaciones, y estima¬ 
ciones de costos, con un mínimo es¬ 
fuerzo de codificación. 

Dentro de esta estructura, cualquier 
cambio de contenido de alguna colum¬ 
na, se ve reflejado de forma automática 
en el resto, empleando para ello tanto 
las funciones definidas, como funcio¬ 
nes especiales creadas por el usuario. 

La hoja electrónica está gobernada 
por un menú general con las opciones 
más habituales: rango, copiar, mover, 
imprimir, etc. 

El desplazamiento por la hoja se pro¬ 
duce de forma sencilla, con ayuda de 
las teclas de movimiento del cursor, 
permitiéndose además el desplaza¬ 
miento de la ventana de visualización, 
sobre la propia hoja de trabajo. 

Ya dentro de las celdas, pueden in¬ 
troducirse tres tipos de datos: las eti¬ 
quetas alfanuméricas, destinadas a ca¬ 
lificar filas o columnas; los datos numé¬ 
ricos, para generar los resultados de 
los cálculos; y las fórmulas matemáti¬ 
cas, las cuales relacionan de forma ab¬ 
soluta o relativa los contenidos de las 
celdas, comportándose como elemen¬ 
to de control del conjunto. 

Dentro de esta estructura, consegui¬ 
mos la maxima optimización en la in¬ 
troducción de datos, puesto que basta 
con alterar una sola cifra para afectar a 
la hoja entera, en cuanto a totalizacio¬ 
nes y otros cálculos se refiere. 
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libertad a la hora de configurar la es¬ 
tructura de cada fichero, siendo varia¬ 
ble tanto el número de registros, como 
el de campos y características de és¬ 
tos, dentro de cada registro. 

La posibilidad de indexación por 
cualquier campo, nos permite visuali¬ 
zar los ficheros ordenados por cual¬ 
quiera de sus datos, respondiendo a 
nuestras necesidades. Por otro lado, 
este apartado nos facilita las labores 
más usuales de mantenimiento de fi¬ 
cheros: altas, bajas, modificaciones, 
consultas y listados por pantalla o im¬ 
presora. 


GRAFICOS 

La opción de gráficos permite elabo¬ 
rar los más sofisticados, dentro del 
campo de la gestión. Trabaja, pues, 
con gráficos de sectores, barras, com¬ 
binación de sectores y barras, de línea, 
etc. 

Con ayuda de una impresora de cali 
dad o un plotter, resulta fácil obtener 
gráficos de aspecto profesional. Esto 
es debido a que la información necesa¬ 
ria para ello, se encuentra almacenada 
en la hoja electrónica, siendo posible 
además, incluir los gráficos generados 
en un documento creado con la ayuda 
del procesador de textos. 


PROCESADOR DE TEXTOS 

El procesador de textos de INTE- 
GRATED 7 es muy sofisticado, ofre¬ 
ciendo muchas posibilidades no pre¬ 
sentes en algunos programas específi¬ 
camente destinados a este cometido. 
Permite componer cualquier docu¬ 
mento, desde un informe financiero (in¬ 
cluyendo datos obtenidos de la hoja 
electrónica y gráficos), hasta una sim¬ 
ple carta. 

Admite operaciones de borrado, 


BASE DE DATOS 

Un sistema de gestión de base de 
datos es conceptual mente similar a un 
archivador, permitiendo listar, almace¬ 
nar, y relacionar elementos de informa¬ 
ción. Pero además, por tratarse de una 
base de datos relacional, nos propor¬ 
ciona una cantidad ilimitada de alma¬ 
cenamiento, al tiempo que la posibili¬ 
dad de ordenar, extraer, y reorganizar 
parte o la totalidad de la información, 
para imprimir la seleccionada, tanto en 
forma de etiquetas como de listados. 

La base de datos está constituida por 
ficheros, cada uno de ellos formado a 
su vez por una serie de registros, con 
sus correspondientes campos de da¬ 
tos cada uno. Por supuesto, existe total 
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desplazamiento o duplicación de blo¬ 
ques, así como el subrayado o impre¬ 
sión en negrita de cualquier texto. En 
cualquier caso, el programa vuelve a 
alinear los párrafos, de forma automáti¬ 
ca, cuando es necesario. 

Permite también localizar determina¬ 
das palabras dentro del documento, 
reemplazando una expresión por otra 
en todas o en alguna de las ocurren¬ 
cias, disponiendo de un completo dic¬ 
cionario de términos, para ayudar a co¬ 
rregir los errores ortográficos más fre¬ 
cuentes. 

Una de las características más inte¬ 
resantes del procesador, es la posibili¬ 
dad de recurrir a la ayuda en línea de 
que dispone. De esta forma, resulta fá¬ 
cil salir de alguna situación compro¬ 
metida. 

El movimiento a través del documen¬ 
to, de forma similar a como sucede en 


la hoja electrónica, se produce a través 
de las teclas de desplazamiento del 
cursor, existiendo posibilidad de efec¬ 
tuar desplazamientos fuera del entorno 
de la pantalla visible. 

En cuanto al formateado de texto, se 
permite la justificación a la izquierda, 
centrado y justificación a la derecha. 
Como complemento, pueden definirse 
los márgenes y posiciones de tabula¬ 
ción, hacer visibles o no los caracteres 
de retorno de carro (finales de párrafo), 
etc. 


CORREO 

El apartado de correo, permite aunar 
los recursos proporcionados por la ba¬ 
se de datos y los del procesador de tex¬ 
tos, para crear una serie de documen¬ 
tos originales a partir de una carta tipo. 



COMUNICACIONES 

La opción de comunicaciones, ofre¬ 
ce la posibilidad de conectar el orde¬ 


nador con otro, para el intercambio de 
datos, utilizando un modem junto con 
el módulo de comunicaciones, facili¬ 
tándose de esta forma la conversación 
con un ordenador central o cualquier 
PC. 


EMULACION DE TERMINALES 

La opción de emulación de termina¬ 
les permite utilizar el PC como terminal 
de un gran sistema, pudiéndose utilizar 
realmente las posibilidades del ordena¬ 
dor central (capacidad de memoria, 
programas y datos), como si se estu¬ 
viera directamente conectado a él. 


INTEGRACION IHHH 

El secreto de la potencia de INTE- 
GRATED 7 reside en el hecho de que 
todos sus componentes trabajan de 
forma conjunta. De esta forma, mien¬ 
tras se opera con la hoja electrónica, es 
posible entrar en la base de datos para 
examinar el contenido de un fichero, 
obtener la información apropiada, y re¬ 
gresar al entorno de la hoja electrónica 

La información de la hoja electrónica 
puede transferirse a la base de datos, o 
a un documento del procesador de tex¬ 
tos, o incluso exportarse hacia otros 
programas. Asimismo, es posible em¬ 
plear esta información para la confec¬ 
ción de gráficos, o envío hacia otros or¬ 
denadores. 

INTEGRATED 7 guarda también 
compatibilidad con otros paquetes in¬ 
tegrados de amplia difusión, como LO¬ 
TUS 1, 2, 3, y VISICALC, de forma que 
es posible utilizar los ficheros creados 
por estos programas. 

Es posible además, utilizar los co¬ 
mandos del DOS desde dentro de la 
aplicación: para observar el contenido 
de un disco, formatear uno nuevo, o 
ejecutar un programa diferente gracias 
a la versión del DOS denominada 17, la 
cual está completamente integrada 
en el programa. 

Título: INTEGRATED 7 

Precio: 29.500 ptas. (+I.V.A.) 

Distribuidor: Softronic, S.A. 

Orense, 34, 10.° 
28020 MADRID 
Tel.: (91) 456 74 12 
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PRO GOLF 


U ltimamente, aquellos juegos 
que simulan un gran torneo de 
golf están acaparando gran par¬ 
te del software que recibimos para el 
PC Amstrad, como es el caso de Pro 
Golf, programado por Mastertronic. 

Los gráficos en tres dimensiones son 
comunes a este tipo de juegos, a lo cual 
hay que sumar la posibilidad de usar 
catorce tipos de palos, indicador de 
greens, viento, y todas aquellas carac¬ 
terísticas propias de los juegos de golf, 
tales como los bunkers, el rough, etc. 
Aún así, un juego del mismo género lo 
supera con creces. Mean 18, el rey de 
la categoría. 

El juego comienza en la salida del 
primer hoyo, y para empezar, habrá 
que elegir el palo con el que deseamos 
golpear la pelota, lo cual es posible 
moviendo el joystick de izquierda a de¬ 
recha, ya que el programa nos permite 
utilizar tanto ésto como el teclado. 

Con la flecha señalaremos la direc¬ 
ción que ha de tomar la pelota en rela¬ 
ción al sentido del viento y su veloci¬ 
dad. Podemos realizar un pequeño 
swing para sortear algún obstáculo, ár¬ 
bol o bunker. Si conseguimos aproxi¬ 
marnos hasta el green, aparecerá una 
ventana con un detalle aéreo del próxi¬ 
mo put. 

Gracias a esta ventana, podemos 
calcular con exactitud la dirección de la 
bola, teniendo en cuenta algunas caí¬ 
das y subidas. El palo que se utiliza en 
el green, el putter, se selecciona auto¬ 
máticamente por el ordenador. 

Cada hoyo posee su propio nombre, 
y está dotado, además de bunkers, 
roughs, árboles y arbustos, y de algún 
que otro lago y riachuelo, como el hoyo 
quinto, décimo cuarto y décimo quinto. 
El circuito cuenta con dieciocho hoyos, 
como ya dijimos, de los cuales cuatro 
son par tres, d lez par cuatro, y ci neo par 
cinco. 

El hoyo mas largo es el décimo cuar¬ 
to, par 5, llamado Long River, atravesa¬ 
do por un gran río, cuya distancia hasta 
la bandera es de nada menos que 595 
yardas. Asimismo, el más pequeño es 


el tercero, North Quay, rodeado ade¬ 
más por un lago. 

Las instrucciones poseen la distan¬ 
cia máxima alcanzada por cada palo 
en el juego para poder elegir, en base a 
las yardas que nos separan de la ban¬ 
dera, el club más acertado. Los palos 
de madera, al igual que en la realidad, 
no funcionan bien en el rough. 

Otra de sus mejores características 
es la posibilidad de juego de dos juga¬ 
dores, lo cual aumenta la tensión y el 
suspense del juego. Al final, nuestra 
pelota habrá recorrido por la pantalla 
de nuestro ordenador, más de 7.000 
yardas. El programa va acompañado 
de un libro de instrucciones. 
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Two-on-Two 


POR FIN EL AUTENTICO JUEGO 
DE BASKET DE EQUIPO 


ISn BASKET EMPIEZA DONDE 
I OTEOS ACABAN. 


OPCIONES: 

jjjSjS UN JUGADOR CONTRA OTRO 
UN JUGADOR CONTRA 
El ORDENADOR 
DOS JUGADORES CONTRA 
U ORDENADOR 


PODRAS REALIZAR UN 

WlTRENAMIENTO PREVIO AL 

VERTIDO PARA CALENTAR 
MUSCULOS. 


ELIGE ESTRATEGIA DE 

DEFENSA Y ATAQUE. 


PODRAS DEFENDER EN ZONA 
T HOMBRE A HOMBRE. 


inl 


n 

f 



LANZAMIENTOS DE DOS Y 
TRES PUNTOS. 


CUIDADO CON LA ZONA DE 
TRES SEGUNDOS. 


NO JUEGUES SUCIO, 
ARBITRO PITARA LOS PASOS, 
PERSONALES, ETC. 


OJO CON EL TIEMPO DE 
POSESION DEL BALON. 


DISPONES DE CUATRO 
TIEMPOS. 




r 

DUponlbl»* cont 


f COI 
5 PE 

AMODORE 

CTRUM 

iTRAO (cas*./disco) 

C 

s 
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VIVE EL AUTENTICO BASKET AMERICANO CON LAS GRANDES 
ESTRELLAS > GANCHOS, BLOQUEOS, MATES, REBOTES, ETC. 

NO ABUSES DE LAS INDIVIDUALIDADES, RECUERDA QUE TIENES 
COMPAÑERO DE EQUIPO. 

SI EL PARTIDO SE TE PONE CUESTA ARRIBA, NO DUDES EN PEDIR 

TIEMPO MUERTO. 

CUANDO TERMINES EL ENCUENTRO, RELAJATE VIENDO LA 

REPETICION DE LAS MEJORES JUGADAS. 



Y OJO, CONTROLA LA ESTADISTICA DEL PARTIDO 

TRES PUNTOS, REBOTES, BALONES ROBADOS Y, COMO NO, MAXIMO 


D, t\CDUI Co, DMLUryCQ KUDMUCJD T, U, MHAIIV — 


EN TÍENDAS ESPECIALIZADAS Y GRANDES ALMACENES 

Distribuido en Cataluña por: DISCOVERY INFORMATIC C I. Arco Iris, 75 • BARCELONA - Tels 256 49 08/09 


Velázquez, 10 ■ 28001 Madrid • Tels. (91) 276 22 08 09 





































HCECEEB 



IMPOSSIBLE 

MISSION 


H ace mucho tiempo, en una in¬ 
hóspita región del Cáucaso Afri¬ 
cano, cerca del Everest, en las 
faldas de las nieves del Aconcagua, 
allá por Jerez, nació un joven de 62 
años llamado Elvin Atombender. Siem¬ 
pre sobresalió en sus estudios, sobre 
todo en Física y Matemáticas, por lo 
cual sacamos lá conclusión de que de¬ 
bía ser repelente y, aunque las 
computadoras no existían por aquella 
época (de alguna manera hay que in¬ 
ventar la historia), todas las tardes, des¬ 
pués de clase, pasaba horas y horas 
embebido ante su ordenador. Por aque¬ 
lla época, suponemos que se trataría 
de un Mark-1 de veinte metros de lon¬ 
gitud, de esos que utilizaban bombillas 
y transistores, pero el caso es que allí lo 
tenía, en su pequeña habitación de 
cuatro metros cuadrados. 

Dicen las instrucciones que Elvin de¬ 
cidió destruir el mundo, al no poder 
concluir con éxito el mejor vídeo juego 
de aquel tiempo (el único, pensamos), 
llamado «Invasores Pingüino Chisto¬ 
sos desde el Espacio Exterior a la Ve¬ 
cindad de Ursa Minor», y compréndase 
que Elvin no podía soportar a los pin¬ 
güinos de Ursa, y menos a los chisto¬ 
sos. 

Ahora, amasando una inmensa for¬ 
tuna, Elvin ha construido unagran forta¬ 
leza, protegida por robots, para desde 
allí introducirse en todos los sistemas 
militares, manejados por ordenador, y 
realizar un ataque definitivo contra la 
Humanidad Toda esperanza de la Tie¬ 
rra esta basada en una persona, adivi¬ 
na quien, la respuesta es muy original. 

Quedan tan sólo seis horas para el 
gran cataclismo y eres introducido en 
una base constituida por docenas de 
habitaciones. Para entrar en la sala de 
control central, necesitas buscar por to¬ 
dos los rincones y muebles de la base y 
encontrar las piezas del puzzle que te 
abrirá las puertas de esta sala. 


Las únicas armas serán la astucia y 
un ordenador de bolsillo MIA9366B, de 
la serie JJ3245HKO. Apréndete bien 
estos códigos porque, como de cos¬ 
tumbre, no te servirán absolutamente 
para nada. Debes evitar a los guardias 
robots del científico, romper su código 
de segundad y encontrar su centro de 
control. 

La mejor característica a resaltar en 
este juego es su excelente movimiento, 
gracias al cual podremos hacer autén¬ 
ticas filigranas en nuestra pantalla. La 
versión Amstrad es bastante buena y 
nada tiene que envidiar a aquellas que 
se realizaron, ya hace años, para Spec 
trum y Commodore. 

Por lo tanto, se trata de un juego de 
siempre con un argumento de siempre, 
es decir, salvar el mundo. Todo lo que 
necesitas es paciencia, y si te sirve de 
consuelo, recuerda que un par de mi¬ 
llones de personas fracasaron antes 
que tú. 
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EQAMSTRAD 



SAILING 


V amos a ver: simuladores de 
vuelo, simuladores de tren, si¬ 
muladores de fórmula 1, simu¬ 
ladores de submarinos, simuladores 
de motos, simuladores de bicicletas... y 
ahora, ¡simulación de alta competición 
náutica! 

SAILING es un juego de estrategia en 
una competición marítima internacio¬ 
nal. Tu barco puede ser el Banco Atlán¬ 
tico, el Fortuna, Pacharán la Navarra... 
o todos aquellos que dejaron huella en 
las páginas de oro de las carreras so¬ 
bre las aguas del mar. Se trata de una 
fuerte competición donde se han ins¬ 
crito dieciséis países de una larga tra¬ 
dición marítima. 

Para empezar, elijamos nuestro nivel 
de juego y nuestro deseo de escuchar 
o no la música y los efectos de sonido. 
Según elijamos nuestro nivel, más o 
menos lejos nos encontraremos de la 
meta. 

A continuación, debemos construir 
nuestro propio barco en la pantalla de 
diseño. Debemos modificar nuestra 
embarcación, según sea el parte me¬ 
teorológico del día de la carrera. Así, 
podemos transformar la quilla, el mate¬ 
rial del casco, los metros de eslora y la 
longitud del mástil Nuestra elección 
debe ser cuidadosamente estudiada si 
no queremos ser al día siguiente pasto 
de las olas. 

Podremos observar los distintos di¬ 
seños de los barcos en las diversas si¬ 
tuaciones climatológicas. Posterior¬ 
mente, entraremos en la tabla de clasi¬ 
ficación de la liga, para elegir nuestro 
país, si no lo hicimos ya, y nuestro pró¬ 
ximo contrincante. 

Todo estará ya listo para la carrera y 
apareceremos en el mar, junto a nues¬ 
tro oponente, avistando en el horizonte 
la primera boya. La pantalla, durante la 
regata, está dividida en dos mitades. La 
superior es la vista desde la proa de 
nuestro navio y la inferior, los controles 
de la embarcación. 

A través de la pantalla podemos 
avistar el mar, y frecuentemente a 
nuestro oponente, que en las primeras 


partidas siempre irá por delante. La 
boya se habrá de girar en el sentido de 
las agujas del reloj, pero a veces esto 
puede resultar difícil si el tiempo resulta 
desapacible, con lo cual, prácticamen¬ 
te apenas veremos la boya, escondida 
por las olas. 

El viento juega un importante papel 
en la carrera, pues está intentando 
constantemente cambiar el curso de 
nuestro barco, ide nuestro barco!, no el 
de nuestro oponente,con loque empe¬ 
zará a caerte gordo antes o después. 
Es más, mientras sopla no poseemos el 
mando de la dirección del barco. Des¬ 
pués de cinco días de incansable rega¬ 
ta se nos obsequiará con una semana 
de descanso para revisar el barco y, 
porqué no, echarnos unos marcianos 
en nuestro Amstrad. 
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GOLPE EN LA 
PEQUEÑA CHINA 


D e nuevo otro juego de película, 
esta vez la versión Amstrad de 
«Big Trouble in Little China», 
cuya traducción al castellano da nom¬ 
bre al programa. El argumento de la 
película, y por ello del juego, es el si¬ 
guiente: 

El maligno y malévolo mandarín. Lo 
Pan, intenta asegurarse el cuerpo de un 
mortal calmando a un demonio. Para 
ello, debe casarse con una hermosa 
mujer de ojos verdes, para más tarde 
darle muerte en sacrificio, y así el oscu¬ 
ro maleficio se hará realidad. 

De esta manera, los agentes de Lo 
Pan raptan a las novias de Jack Burton 
y Wang Chi, pues ambas tienen los 
ojos del color deseado por el malvado 
mandarín, y las han trasladado hasta el 
imperio subterráneo de Lo Pan, por de¬ 
bajo de las calles de San Francisco, en 
el barrio chino. Jack Burton, Wang Chi y 
su amigo Egg Shen, deciden penetrar 
en las oscuras alcantarillas, dominios 
del mal y de Lo Pan. 

El juego consiste en guiar en su bús¬ 
queda subterránea a los tres persona¬ 
jes hasta encontrar a las dos chicas. 
Jack lo mejor que sabe hacer es dispa¬ 
rar; Wang es un maestro de las artes 
marciales y Egg es un mago chino, que 
viaja sobre una nube flotante, a ras de 
suelo. 

La acción transcurre en cuatro esce¬ 
narios diferentes. El juego comienza en 
las peligrosas calles de Chinatown, allí 
donde empezarán nuestros proble¬ 
mas, pues estas calles están plagadas 
de guardias de Lo Pan Estos evitarán 
que continúes tu camino a menos que 
luches. 

Después de un par de docenas de 
guardias vapuleados, apareceremos 
en las alcantarillas, donde a los guardias 
de rigor habrá que sumar los mons¬ 
truos de las cloacas, que para acabar 
de rematar la faena, son indestructi¬ 
bles. 


■ 


En el tercer nivel nos encontramos 
nada menos que a los Tormentas, cuya 
característica más apreciable es el ala 
ancha de sus sombreros. Después de 
derrotarlos vendrá el combate cara a 
cara contra Pan. Este se encuentra en la 
habitación de la boda, situada en el co¬ 
razón del cuartel, suspendido encima 
de una nube, igual que el mago. 

También encontrarás a varios guar¬ 
dias armados, pero combinando la ha¬ 
bilidad de tus tres personajes lograrás 
acabar con ellos y rescatar a Miao Yin y 
Gracie Low, las novias de nuestros ami¬ 
gos. 

El programa posee unos estupendos 
gráficos, quizás algo repetitivos. El mo¬ 
vimiento es bastante bueno, pero diga¬ 
mos que no es perfecto, aunque el jue¬ 
go seguro que nos dará mucho que ha¬ 
cer en estas largas noches de verano, 
pues al no ser excesivamente difícil, es 
tremendamente adictivo. 
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GRAND PRIX Y BMX 
SIMULATION 


S e trata de dos juegos diferentes, 
pero que al ser de la misma casa, 
y de las mismas características, 
hemos unido en un solo espacio. El pri¬ 
mero, Grand Prix Simulation, es uno de 
aquellos juegos de los que pudimos 
disfrutar aquellos que asistimos al na¬ 
cimiento de los videojuegos en Espa¬ 
ña. 

En aquellos tiempos, en los cuales 
todavía no existían los juegos en color, 
sino en fósforo verde, época de marcia¬ 
nos (Space Raiders) y meteoritos, tam¬ 
bién podíamos disfrutar de un extraor¬ 
dinario juego de carreras de bólidos. 

El punto de vista del jugador durante 
el juego, era parecido al que tendría al¬ 
guien siguiendo la carrera desde un 
helicóptero. Así es Grand Prix Simula- 
tor, pero los años no han pasado en 
balde, y además del color, observamos 
detalles que por entonces ni siquiera 
habríamos soñado. Es el caso de voz 
sintetizada por el ordenador, el cual da 
la salida y señala el vencedor, además 
del final de partida. 

Es posible elegir entre uno y dos ju¬ 
gadores, pero en ambos modos un co¬ 
che dirigido por el ordenador competi¬ 
rá contra nosotros. Así pues, las carre¬ 
ras pueden ser de dos o tres competi¬ 
dores. Al final, entraremos a formar 
parte del Hall of Fame particular del 



programa. Simplemente apasionante y 
adictivo. 

El otro juego que nos ocupa es muy 
parecido al anterior. Los coches se 
transforman en bicicletas de cross, y la 
carretera en un campo de tierra. La vi¬ 
sión del jugador, es igualmente supe¬ 
rior. Se puede elegir entre una gran va¬ 
riedad de tipos de manejo, pero las te¬ 
clas no son redefinibles. 

Existen siete carreras, cada cual más 
difícil que la anterior, todas formadas 
por tierra, ruedas y escombros. Al final 
de la carrera, es posible visualizar la re¬ 
petición de la misma, con una «R» in¬ 
cluida en la esquina superior izquierda, 
existiendo además la posibilidad de 
cámara lenta (Slow Motion). 

En carrera podemos girar de izquier¬ 
da a derecha, acelerar y frenar, pero lo 
más fácil es estrellarse contra los cien¬ 
tos de obstáculos de la ronda, o contra 
nuestro competidor. Toda carrera dura 
tres vueltas, el primero en llegar, es de¬ 
cir, el que se estrelle menos de quinien¬ 
tas veces, será el ganador. 

Ambos juegos están amenizados 
por dos buenas bandas sonoras, y el 
movimiento del coche y bicicleta, res¬ 
pectivamente, está bien conseguido. 
Recordamos que ambos programas se 
venden por separado y son totalmente 
independientes, aunque nosotros por 
analogía, tanto en su estilo como en su 
temática, los hayamos comentado de 
forma conjunta. Asimismo, podremos 
comprobar que la calificación que he¬ 
mos otorgado a ambos, también la 
comparten. 
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E O AMSTRAD 




ARKANOID 


E n los límites de la desesperación 
al borde de la depresión, del sui¬ 
cidio, hundimiento, descorazona¬ 
miento, en los límites del desaliento, allí 
está Arkanoid. Jamás podremos ver 
una persona peor que después de ha¬ 
berse jugado ochocientas diecisiete 
partidas, durante tres días y sus no¬ 
ches, sin pasar nunca de la tercera 
pantalla, y al fin, cuando lo consiguió, 
un error del programa bloqueó el juego 
y hubo de ser reseteado. 

Arkanoid es un programa genial. To¬ 
mando el clásico juego del muro, han 
conseguido realizar un super adictivo 
best-seller, añadiendo tan solo una se¬ 
rie de cambios que lo convierten en 
apasionante. 

La leyenda cuenta la historia de una 
nave que, intentando regresar a su 
país, había de pasar los 32 campos de 
fuerzas espaciales que se encontraba 
en su camino. Pues ni campos espa¬ 
ciales ni ocho cuartos, simplemente lo 
que hay que hacer, dicho bien claro, es 
liarse a palos con todos los cuadraditos 
que aparecen en pantalla. 

Para ello, tenemos a nuestra disposi¬ 
ción una raqueta de tamaño variable, 
que repelerá una pelota, de bote elásti¬ 
co, que va pululando de un lado a otro 
de la pantalla, cargándose todo el cua¬ 
driculado que pille a su paso. A veces, 
cuando el esférico golpea a uno de 
ellos, cae una especie de cápsula con 
una letra impresa. 

Este es uno de los detalles incorpo¬ 
rados al juego, pues tomando con la ra¬ 
queta una de estas capsulitas, y según 
sea su color y letra, la bola se dividirá 
en tres partes, disminuirá su velocidad 
o se quedará pegada a la raqueta cada 
vez que llegue a ésta; con relación a la 
raqueta, podra alargarse unos milíme¬ 
tros o convertirse en una destructora 
ametralladora de doble cañón. Final¬ 
mente, lacapsulita más ventajosa, abri¬ 
rá una puerta en la parte derecha de la 
pantalla, que nos permitirá pasar al si¬ 
guiente nivel. 

Y hablandode niveles, comoyadijimos 
son nada más y nada menos que trein¬ 
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ta y dos y... pssss, en voz baja, acércate 
un poco... creemos que alguno de ellos 
está diseñado de forma diabólica, nos 
parece que están intentando volvernos 
a todos locos. 

Si hemos leído la Historia Intermina¬ 
ble de Michael Ende, seguro que recor¬ 
daremos que la Nada era algo indes¬ 
criptible, que nos destruía, pero que al 
mismo tiempo nos atraía fuertemente. 
Algo parecido sucede con Arkanoid, 
pues su poder de adicción es tan alto, 
que aún sabiendo que podemos aca¬ 
bar con la camisa de fuerza, seguimos 
jugando y jugando hasta el fin. De ve¬ 
ras, si eres una persona ocupada, con 
trabajo y responsabilidades, no jue¬ 
gues al Arkanoid, una auténtica tenta¬ 
ción, y el que avisa no es traidor. 
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SE 


LOS NUMEROS 
DE LINEA 



H asta ahora, hemos visto coman¬ 
dos de BASIC que se ejecuta¬ 
ban al pulsar RETURN. Este sis¬ 
tema no es eficaz cuando queremos 
realizar procesos más complejos, y es 


necesario ejecutar una serie de órde¬ 
nes distintas. Para ello, necesitaremos 
escribir un programa. 

En BASIC es muy fácil hacer un pro¬ 
grama, sólo necesitamos escribir antes 
del comando el llamado número de 
línea. Veamos el siguiente ejemplo: 

1 PRINT5+3 

2 A=7 

3 PRINTA 


No debemos olvidar escribir los nú¬ 
meros del comienzo de cada línea. 
Ahora cuando pulsemos RETURN o IN- 
TRO, a diferencia de lo que nos pasaba 
antes, la orden no se ejecuta. Así, pode¬ 
mos teclear todas las que necesitemos. 
Para que el programa funcione (porque 
esto ya es un programa, aunque corto) 
escribiremos: 

RUN 

Si necesitamos poner una orden en¬ 
tre la 2 y la 3 no nos quedará otro reme¬ 
dio que modificar los números. Para 
evitar los problemas que puede oca 
sionar cambiar los números de línea, 
éstas se numeran de 10 en 10. Por tan¬ 
to, el programa anterior quedaría: 
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EBAWISTRAD 


10 PRINT5+3 
20 A=7 
30 PRINTA 

Ahora para introducir las órdenes 
que deseemos sólo deberemos escri¬ 
birlas: 

27 C=A+B 
24 B=9 

Las líneas han sido escritas en senti¬ 
do inverso a su número, pero el orde¬ 
nador las colocará correctamente, se¬ 
gún los números escritos, y el progra¬ 
ma será ejecutado en el orden adecua¬ 
do. Como prueba, le pedimos al orde¬ 
nador que muestre, o liste, el programa: 

10 PRINT5+3 
20 A=7 
27 C=A+B 
30 PRINTA 

Los números de línea son el modo de 
saber, nosotros y el ordenador, en qué 
orden se deben ejecutar los comandos 
del programa, y es la forma de hacer un 
programa en BASIC. 
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AMSTRAD 

CONCURSO PUCHO 

Ahora vamos a poner a prueba tu 
destreza para realizar programas. 

1. Confecciona un programa en 
que se visualice tu nombre y la 
edad, en dos líneas de orden. 

2. Modifica el programa anterior 
para que imprima en la pantalla los 
dos apellidos antes que la edad. 

3. Modifica otra vez el programa 
de tal forma que lo primero que ha¬ 
ga sea un efusivo saludo. 



RASTRO 
NUMERO 16 


T U MICRO AMSTRAD es una publicación abierta a todos nosotros, y por tan¬ 
to, quiere servir también de amigo común entre todos sus lectores. A través 
de estas páginas de RASTRO, deseamos crear una corriente de informa¬ 
ción y contactos que amplíen el mercado y la cohesión de la gran familia AMS¬ 
TRAD: pero eso sí, cuidadito con los piratas, que no van a ser bienvenidos... 

Añadamos también que esta es la gran oportunidad que estaban esperando 
los clubs de usuarios; ¿qué tal si canalizáis a través de nosotros la información 
sobre vuestras actividades? Seguro que son de gran interés para muchos lecto¬ 
res, y su difusión a nivel nacional, puede animar a muchos a emprender iniciati¬ 
vas similares a las vuestras. 

En lo referente al sistema que seguiremos para la publicación de los anuncios, 
escogeremos, por riguroso orden de llegada a nuestra redacción, aquéllos que 
hallan rellenado todos los datos que se solicitan en la tarjeta adjunta, de forma 
bien clara, utilizando letras mayúsculas, y que por su texto no supongan la difu¬ 
sión de una actividad de piratería de software. 

Si no queréis recortar la revista para enviar la tarjeta, podéis hacer una fotoco¬ 
pia, y en caso de que por motivos excepcionales, el texto que pretendéis publi¬ 
car tenga una mayor longitud que la máxima establecida en este apartado, po¬ 
déis remitirlo escrito en un papel, junto con la tarjeta, en la cual sólo figurarán en 
este caso el resto de los datos. Ahora bien, escribid con letra muy, muy clara, y si 
es posible a máquina. 

Bien, ya nada más, animáos y dirigid vuestras informaciones a: 


TU MICRO AMSTRAD 
(RASTRO) 

APARTADO DE CORREOS 61.294 
28080 MADRID 


Tarjeta de anunciante 

Escribe en forma clara y en mayúsculas, a ser posible a máquina, y con una 
sola letra por casilla. No olvidéis completar todos los datos que se solicitan, in¬ 
cluso tu voto para EN LA CUMBRE, que te permitirá participar en el sorteo de 
suscripciones a nuestra revista. 

NOMBRE □□□□□□□□□□□□□□□□□□ 
DIRECCION □□□□□□□□□□□□□□□□□ 
LOCALIDAD □□□□□□□□□□□□□□□□□ 

TELEFONO (si tienes) □□□□□□□ 

Voto para EN LA CUMBRE 

TEXTO DEL ANUNCIO: □□□□□□□□□□□□□□ 
□□□□□□□□□□□□□□□□□□□□□ 
□□□□□□□□□□□□□□□□□□□□O 
□□□□□□□□□□□□□□□□□□□□□ 
□□□□□□□□□□□□□□□□□□□□□ 
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DOS SEÑORITAS MUY 


Estudiamos dos 
impresoras de Seikosha 
con características 
fuera de lo común 


El usuario del CPC necesita casi 
siempre una impresora. El del 
PCW puede llegar también a 
necesitar otra. Aquí 
presentamos dos soluciones 
muy interesantes. 



L os modelos proporcionados por 
Dirac, distribuidor de Seikosha, 
son la MP-1300AI y la SL-80AI con 
conector adecuado a la salida de cual¬ 
quier CPC, o del PCW con el corres¬ 
pondiente interface. 

Aunque ambos periféricos tienen ca¬ 
racterísticas bastante distintas, pode¬ 
mos señalar puntos comunes. Princi¬ 
palmente, el tamaño, la anchura del ca¬ 
rro (8 pulgadas), el introductor automá¬ 
tico de hojas sueltas, tractor para pa¬ 
pel continuo, volcado hexadecimal, de¬ 
finición de márgenes con teclado o con 
órdenes, detector de fin de papel, auto 
test y chequeo RAM automático. 

Ambas disponen además de un mo¬ 
do IBM, con lo cual son también conec¬ 
tares al Amstrad PC 


SEIKOSHA MP-1300AII 

Los ocho kilos y medio de peso de la 
MP, contienen interface paralelo y serie 
para conectar prácticamente a cual¬ 
quier ordenador. Además, dispone de 


varios conectores internos para definir 
protocolo, paridad y longitud de los da¬ 
tos. Se conecta a 220-240 V con un 
consumo máximo de 85 W. 

La cabeza de nueve agujas dispone 
de un gran radiador para disipar el ca¬ 
lor generado al imprimir a 300 caracte¬ 


res por segundo en baja calidad, y 64 
en alta (NLQ), siempre con la ayuda de 
un buffer de 10K. Estas velocidades 
son más que suficientes por mucha pri¬ 
sa que tengamos. 

Evidentemente, esta impresora es 
adecuada para «programadores incu- 
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SE AMSTRAD 


ESPECIALES 



car más de 100K de datos, la MP se¬ 
guía «tan fresca», y nosotros más bien 
aburridos de ver pasar el papel a toda 
velocidad. 

Por supuesto, esta impresora no se 
dedica sólo a escribir letras. Además 
de los diferentes tipos de letra (pica, es¬ 
trecha, élite, proporcional) en alta o ba¬ 
ja calidad, disponemos de un amplio 
repertorio de posibilidades en cuanto a 
gráficos. En total, ocho modos que 
abarcan entre 480 y 1 920 puntos por 
línea, pasando por el de 960 a doble 
velocidad. 

Podemos además definir 256 carac¬ 
teres en la RAM de la impresora (se bo¬ 
rrarán al apagarla, claro). Para este fin, 
se incluyen comandos específicos y 
otro que copia las definiciones ROM en 
RAM para poder modificarlas libre¬ 
mente. 

Los ejemplos del manual sobre gráfi¬ 
cos (se nos ha entregado en versión in¬ 
glesa) son claros y ordenados, aunque 
no muy vistosos. De todos modos, de¬ 
jan bien claro que esta impresora res¬ 
ponde holgadamente a las necesida¬ 
des de cualquier usuario. 


¡COLORRRRRRR! 



No terminan aqui las sorprendentes 
características de la MP-1300. Abrien¬ 
do una pequeña compuerta disimula¬ 
da en la parte superior de la carcasa, 
accedemos al espacio destinado a al¬ 
bergar la tarjeta de color. 


rabies» con necesidad constante de 
largos volcados en hexadecimal y lista¬ 
dos, o para negocios que mantienen un 
mailing con considerable número de 
clientes, o para el «letrado» que debe 
obtener continuamente borradores de 
sus escritos. 


La velocidad de escritura de esta im 
presora hace necesario un detector, 
para detener o aminorar (pasando a 
unidireccional) el funcionamiento si 
existe una temperatura demasiado alta. 

Intentamos comprobar su efecto, pe¬ 
ro no nos fue posible. Después de vol- 

























Este pequeño dispositivo, suminis¬ 
trado aparte, se encarga evidentemen¬ 
te de seleccionar cualquiera de los sie¬ 
te colores que pueden obtenerse de la 
cinta especial. También ésta se ad¬ 
quiere por separado; la normal es ne¬ 
gra. 

Existen dos sistemas para controlar 
la selección de color: RGB, que permite 
referirse a un punto determinado de 
manera parecida a como se consigue 
con el barrido de imagen en T.V.; y por 
correspondencia con el orden de colo¬ 
res de la cinta. El primer método parece 
ofrecer más posibilidades, pero la últi¬ 
ma palabra la tiene, por supuesto, el 
usuario. 

Pese a la posible complejidad del 
uso del color, creemos que todo esfuer¬ 
zo merece la pena para ver nuestros in¬ 
formes, documentos, gráficos y demás 
impresos con la fuerza visual del color 
(todo es cuestión de práctica). 

Un detalle importante para aquellos 
usuarios a los que no les interese el co¬ 
lor es que, dado que la cinta debe tener 
la envergadura suficiente para alber 
garlos, la duración de la cinta negra 
puede alcanzar los 10 millones de ca¬ 
racteres, frente a los tres millones de 
otros cartuchos. 


SL-80AI I 

Pasemos ahora a una impresora to¬ 
talmente distinta a la Amstrad PCW, a 
pesar de que muchas de sus piezas 
son iguales o muy similares. El secreto 
se esconde en la cabeza impresora, 
donde 24 agujas permiten imprimir en 
LQ. Explicaremos un poco este con¬ 
cepto. 

La mayoría de las impresoras dispo¬ 
nen de un modo en alta calidad deno¬ 
minado NLQ (nearletterquality) lo cual 
significa más o menos, que la calidad 
de impresión está próxima a la de una 
máquina de escribir, es decir, que los 
puntos que forman la letra apenas se 
notan. 

El modo LQ (letterquality) lo incorpo¬ 
ran pocas impresoras, las cuales, gra¬ 
cias a un gran numero de impactos por 
carácter, consiguen la calidad similar a 
la de una máquina. Así trabaja la SL-80. 

Normalmente, al conectar una im¬ 
presora e imprimir directamente, los 
caracteres aparecen en baja calidad 
(draft) Por el contrario, la SL-80, conce- 
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E0 AMSTRAD 



Nombre: SEIKOSHA MP-1300. 
Precio: 119.900 ptas. (+IVA). 
Nombre: SEIKOSHA SL-80. 
Precio: 89.900 ptas. (+IVA). 


Distribuidor: Dirac, S.A. 

Agustín de Foxá, 25, 3.° 
28036 MADRID 
Tel.: (91) 733 57 00 
733 56 50 


bida para escribir documentos en LQ 
como su principal trabajo, comienza 
directamente en este modo. Podemos 
decir que la impresión en baja calidad 
es lo menos frecuente, al contrario que 
en otras impresoras. 

Gracias a las 24 agujas, la impresión 
es suficientemente rápida a pesar de la 
gran calidad: 54 caracteres por segun¬ 
do en LQ (ien una sola pasada de la ca¬ 
beza impresora!) y 135 en baja calidad. 
El buffer es de 16K. 

Además de su excepcional carac¬ 
terística, la SL-80 «se defiende» tam¬ 
bién en otras tareas, como la definición 
de hasta 128 caracteres, 7 modos gráfi¬ 
cos y tareas comunes a casi todas las 
impresoras con idénticos resultados. 

Aunque posea estas características, 
debemos tener en cuenta la principal 
función de la SL-80: escribir en LQ. Esfo 
puede resultar muy útil al usuario PCW 
que tenga necesidad de presentar sus 
textos con mayor calidad. El problema 
consiste en que LocoScript no permite 
manejar otra impresora. Habrá que pa¬ 
sar el texto a ASCII e imprimirlo con 
ayuda de PIP.COM o bien utilizar otro 
procesador de texto como Tasword 
8000 (lo estudiamos en el número 14). 
En este último caso, se redirecciona la 
salida de impresora con DEVICE.COM 
para solucionar el problema. 

Otro problema muy distinto y más 
serio es el que se presenta al usuario 
del CPC al conectar la impresora. Re¬ 
cordemos que el CPC sólo envía siete 
bits a este periférico, y por tanto ciertas 
órdenes no pueden ejecutarse. 

En el caso de estas dos impresoras, 
tenemos el problema casi resuelto, ya 
que existe una orden para alzar el pri¬ 
mer bit. Con esto podemos arreglar el 
defecto de Amstrad en la mayoría de 
las ocasiones. El mayor problema se 
presentará posiblemente enviando 
imágenes gráficas. 

Las dificultades a la hora de conectar 
y hacer funcionar el equipo con la im¬ 
presora no son muy graves. Agradece¬ 
remos el servicio que nos prestarán es¬ 
tos periféricos, distribuidos por Dirac. 
Se trata sin duda, en ambos casos, de 
un producto de excelente calidad 

Para terminar, un dato imprescindi¬ 
ble a la hora de las compras, el precio. 
La SL-80 puede obtenerse a partir de 
89.900, y la MP-1300, 119.900 (sin in¬ 
cluir IVA). 
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EL LOGO-SB 

La potencia de un PC aplicada a la educación. 


ordenadores compatibles PC, entre los 
que se encuentra el AMSTRAD PC- 
1512. 

Las característicasjque mas desta¬ 
can del LOGO-SB, nombre propio de 
esta versión, son: 

- Manejo de hasta 8 tortugas a la 
vez. 


A diferencia de números anteriores, en los que nos hemos 
dedicado a la enseñanza con Informática, tratamos un punto 
considerado como opuesto: enseñanza de la Informática, con una 
tortuga de LOGO que tiene mucho que decir. 


S e trata de un lenguaje poco cono¬ 
cido, a pesar de su cada vez más 
amplia difusión, aunque proba 
blemente nunca sea tan popular como 
el BASIC, Pascal o C. El motivo hay que 
buscarlo en el objetivo del LOGO: la 
educación. 

Este lenguaje fue creado, hace apro¬ 
ximadamente 20 años, en el departa 


mentó de Inteligencia Artificial del MIT 
(Instituto de Tecnología de Massachus- 
sets). Su propósito es enseñar al niño a 
programar con la ayuda del ordenador, 
sustituyendo en este terreno al resto de 
los lenguajes diseñados hasta enton¬ 
ces, como el BASIC. 

La versión que nos ocupa ahora es el 
LOGO de SOFTWARE DE BASE para 


— Gráficos tridimensionales, con 
primitivas (comandos) para mover la 
tortuga por las tres dimensiones. 

— Multilingüe, al poder seleccionar 
el idioma en que se trabaja (castellano, 
vasco, gallego, catalán e inglés). 

— Posibilidad de creación de «spri- 
tes» o editor de formas. 

— Opción de «dibujar rápido», es 
decir, mover la tortuga sin comandos 
LOGO, si no con las teclas (como si fue¬ 
ra un «telesketch»), y almacenar dicho 
dibujo en disco. 

Además, el SOFTWARE DE BASE in¬ 
forma que ha sido adoptado por el Mi¬ 
nisterio de Educación para el proyecto 
ATENEA, con toda la importancia que 
esto conlleva. El problema se encuen¬ 
tra en cuándo el Ministerio aplicará en 
su totalidad el proyecto. 
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SSAMSTRAD 


Como complemento a su función 
educativa, SOFTWARE DE BASE co¬ 
mercializa el lenguaje de autor PILOT-5B 
(los lenguajes de autor están ideados 
para realizar programas educativos 
por aquellas personas que no sepan 
informática), aprobado, igualmente, 
para el Proyecto ATENEA, interactivo 
con el LOGO-SB. 


EL LOGO I 

Antes de entrar en las particularida¬ 
des de LOGO-SB, hablemos de las ca¬ 
racterísticas generales del LOGO. 

Este lenguaje se soporta en dos pun¬ 
tos fundamentales: los gráficos de tor¬ 
tuga y el manejo de objetos, las listas y 
palabras. Disponemos de todas las po¬ 
sibilidades de un lenguaje estructura¬ 
do, con manejo de procedimientos e 
incluso recursividad. Para facilitar más 
las cosas, LOGO es un lenguaje inter¬ 
pretado, evitándose todo el proceso 
previo de definición de variables, fun¬ 
ciones... que tanto asusta a los noveles y 
que son inherentes a los lenguajes 
compilados. 

Los gráficos de tortuga, a diferencia 
de los más comunes (que cada vez lo 
son menos, porque estos se van impo¬ 
niendo en todos los lenguajes), presen¬ 
tan la particularidad de que sus coman¬ 
dos no indican dónde debe terminar 
una recta, sino qué longitud tendrá o 
qué ángulo debemos girar. Para facili¬ 
tar el trabajo y como motivación para el 
alumno, se supone que una tortuga es 
la responsable de realizar todos los di¬ 
bujos y movimientos que nosotros se¬ 
ñalemos (en la pantalla no se ve una 
tortuga como tal, sino un pequeño 
triángulo isósceles). Este método tiene 
como ventaja que con pocos coman¬ 
dos (o primitivas, como se conocen en 
LOGO) se pueden realizar dibujos 
complicadísimos. 

El manejo de listas y palabras es la 
forma en que LOGO trabaja con la in¬ 
formación Al igual que los gráficos, es 
un apartado que no tiene límite, acer¬ 
cándonos a los comienzos de la Inteli¬ 
gencia Artificial en cuanto al modo de 
estructurar la información (el LOGO de¬ 
riva en este campo directamente del 
lenguaje USP de Inteligencia Artificial). 

No obstante, no hay que buscarle 
aquello que no tiene, ni utilizarlo en 


aplicaciones fuera del área educativa. 
No es lógico realizar programas de 
aplicación, ni de juegos en este len¬ 
guaje; los hay más apropiados. Ade¬ 
más, no debemos olvidar que el LOGO 
es un intérprete y su velocidad de eje¬ 
cución, por tanto, es muy inferior a la de 
los compiladores, o incluso a cualquier 
intérprete BASIC, siendo impensable, 
dada su concepción dentro del área 
educativa, la creación de un compila¬ 
dor. 

Una vez realizadas las aclaraciones 
pertinentes sobre las características 
generales del lenguaje, podremos co- 
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mentar las que incorpora la versión SB, 
y saber así qué podemos esperar y qué 
no, ya sea nacidas del propio lenguaje, 
o de esta versión en sí. No obstante, po¬ 
demos anticipar que sin duda nos en¬ 
contramos ante uno de los intérpretes 
más complejos de este lenguaje. 

Y AHORA... EL LOGO-SB H 

No pretendemos dar un curso de LO¬ 
GO acelerado, ya que no es este el ob¬ 
jetivo del artículo. Por tanto, nos limita¬ 
remos a resaltar qué destaca del LO¬ 
GO-SB, dejando a un lado las primiti¬ 
vas y características comunes y bási¬ 
cas al lenguaje estándar, que cualquier 
versión que se precie deberá incorpo¬ 
rar. 

El paquete básico consiste en un 
manual de LOGO, de carpeta de ani¬ 
llas, con un diskette donde se encuen¬ 


tra el lenguaje y algunos programas de 
demostración. 

Se ofrece un complemento, opcio¬ 
nal, que consiste en una «GUIA DE LO¬ 
GO», como ampliación del manual, 
acompañada por un diskette con los fi¬ 
cheros para trabajar en diferentes idio¬ 
mas con el LOGO. 


NI UNA, NI DOS, NI TRES... 
¡OCHO TORTUGAS! 

Cuando empezamos a trabajar con 
los gráficos del LOGO-SB y sus corres¬ 
pondientes primitivas, comprobamos 
cómo se desplaza la obediente tortuga. 
Sin embargo, lo que no sabemos es 
que en las sombras se encuentran ace¬ 
chando otras siete compañeras, espe¬ 
rando que las dejemos en libertad. Só¬ 
lo tenemos que decidir cuál es la que 
debe ponerse a trabajar. Y no puede 
ser más fácil: 

?activa [0] repite 4 [gd 90 av 50] 
?activa [1] gd 45 repite 4 [gd 90 
av 50] 

?activa [2] gd 90 repite 4 [gd 90 
av 50] 

En este sencillo ejemplo, vamos acti¬ 
vando las tres primeras tortugas (de la 
0 a la 2), realizando con cada una de 
ellas una serie de movimientos: girar a 
la derecha (gd) y avanzar (av). 


Igualmente podemos activar más de 
una tortuga a la vez: 

?activa [0 1 2 3 4] repite 3 [gd 120 
av 50] 

El efecto de esta línea es el mismo 
que si tuviéramos una única tortuga ac¬ 
tiva. La ventaja de activar varias tortu¬ 
gas a la vez se ve claramente cuando 
necesitamos cambiar el estado del lá¬ 
piz: 

?activa [0 1 2 3 4 5] subelapiz 

¿Pero son necesarias más de una 
tortuga? Siendo objetivos, los mismos 
dibujos se pueden hacer con una tortu¬ 
ga que con ocho, aunque en este últi¬ 
mo caso la complejidad de los progra¬ 
mas será menor y la velocidad de eje¬ 
cución bastante mayor, con un claro 
aumento en la calidad gráfica; además, 
como no hay que alimentarlas... 


GRAFICOS EN 3 DIMENSIONES 

Esta es otra de las potentes carac¬ 
terísticas del LOGO-SB. Para hacernos 
una idea inicial de cómo funciona, po¬ 
demos imaginar que siempre hemos 
estado trabajando con una tortuga te¬ 
rrestre, con sus molestas limitaciones 
de avanzar, retroceder y girar. 

Ahora cambiamos nuestra tortuga 
terrestre por una marina y la situamos 
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en medio del mar. La podremos dar las 
mismas órdenes de siempre, y realiza¬ 
rá dichos movimientos normalmente 
por la superficie del agua. Pero tam¬ 
bién tenemos la opción de indicarla 
que profundice y realizar cualq uier mo¬ 
vimiento en todas direcciones. Esta es 
la tortuga 3-D. Igual que para el plano, 
en el espacio, también disponemos de 
ocho tortugas. 

Cuando comenzamos a trabajar con 
el LOGO-SB, sólo podemos manejar la 
tortuga en el plano de la pantalla, y para 
entrar en el «espacio» se teclea: 

?espacio 

Es fácil suponer que regresaremos al 
plano con... 

?plano 

El cambio de estados no supone el 
borrado de la pantalla, por lo que se 
pueden mezclar gráficos de ambos ti¬ 
pos, aunque, con un poco de práctica, 
es posible realizar gráficos de dos di¬ 
mensiones en el espacio. 

Por supuesto, las primitivas serán 
distintas de un estado a otro. No se re¬ 
duce todo a «giraderecha-giraizquier- 
da», sino que es necesario determinar 
tres ángulos, uno para cada dimensión: 

- viraizquierda, viraderecha: estas 
primitivas son equivalentes a los giros 
de la tortuga plana. 

- balanceaizquierda, balanceade- 


recha: giran la tortuga hacia el lado co¬ 
rrespondiente. 

— cabeceaarriba, cabeceaabajo: 
determinan el ángulo con el que la tor¬ 
tuga va a profundizar o salir de la pan¬ 
talla. 

Para entender el efecto que tienen 
estos tres grupos de primitivas, es ne¬ 
cesaria una cierta capacidad de abs¬ 
tracción o trabajar un buen rato con LO- 
GO-SB. Quizás con el siguiente ejem¬ 
plo lo veamos más claro: imaginemos 
que disponemos de una puerta espe¬ 
cial en la que, además del movimiento 
normal de abrir y cerrar, es posible, 
también, abrir la puerta hacia abajo, es 
decir las bisagras situadas en el suelo. 
A esta puerta le colgamos una pizarra 
donde vamos a realizar los dibujos. 

Comenzamos a trabajar con la puer¬ 
ta cerrada. Si queremos realizar un 
cuadrado lo haremos: 

?repite 4 [avanza 50 
viraderecha 90] 

Ahora abrimos la puerta con las bi 
sagras laterales y deseamos realizar el 
mismo cuadrado. Si nuestra posición 
no varía, estaremos ante idéntica figura 
pero con un giro. Para eso utilizamos el 
segundo grupo de primitivas (balan¬ 
ceaizquierda, balanceaderecha). Co¬ 
mo nosotros no nos hemos movido de 
nuestro punto, la figura da la apariencia 
que se ha girado. 


Volvemos a variar el ángulo con el 
que deseamos ver el cuadrado, pero 
ahora como si lo viéramos desde arri¬ 
ba. Para ello la puerta la hacemos girar 
el ángulo deseado con las bisagras del 
suelo. Una vez efectuado el giro, dibu¬ 
jamos el cuadrado en la pizarra. Para 
realizar este giro se utilizan las primiti¬ 
vas «cabecearriba» y «cabeceabajo». 

El símil se parecerá más al LOGO- 
SB si nos imaginamosque la puerta tie¬ 
ne bisagras en los cuatro lados, lo cual 
nos permite realizar cualquier giro en 
las tres dimensiones. 

Si combinamos todas las primitivas 
del espacio, más las comunes con el 
plano (colores y estado de la tortuga), 
obtendremos una gran potencia de 
gráficos, que pondrán a prueba, más 
de una vez, nuestra capacidad de abs¬ 
tracción (requiere bastante imagina¬ 
ción plasmar una imagen 3-D en un 
plano), pero cuyos resultados son cla¬ 
ramente satisfactorios. 


EL EDITOR DE FORMAS O 
COMO TENER UNA 
VERDADERA TORTUGA BMB 

Siempre que se habla de LOGO es 
imposible dejar de mencionar a la fa¬ 
mosa tortuga. Sin embargo, cuando 
nos ponemos a trabajar, dicho animali- 
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biar los gráficos de tortuga por los de 
elefante?). Teclearemos «edforma» 
con un nombre de fichero para guardar 
el dibujo creado en disco: 

?edforma "coche 


to no aparece. En cambio, tenemos un 
frío triángulo y encima nos dicen que 
«eso es la tortuga». 

El LOGO-SB permite alterar la forma 
de cualquiera de las ocho tortugas a 
nuestra conveniencia, pudiendo así 
trabajar con un verdadero quelonio, o 
cualquier otra figura (¿por qué no cam¬ 


para que la sustitución sea efectiva 
ejecutaremos: 

?ponforma "coche 

Si queremos asignar la nueva figura 
a una tortuga en concreto, sólo es ne¬ 
cesario «activarla»; ya sabemos como: 

?activa [7] ponforma "coche 

Cuando escribimos «edforma» apa¬ 
rece una nueva pantalla con una 
cuadrícula de 16 x 16. En ella, iremos 
creando la imagen moviendo un cursor 
con las teclas de las flechas. Podemos 
elegir entre cuatro colores distintos. En 
el lado derecho de la pantalla, veremos 
cómo está quedando la figura que es¬ 
tamos creando, a tamaño natural. 

El sistema no puede ser más senci¬ 
llo, hay que olvidarse de la típica suce¬ 
sión de números decimales, o binarios 
en el peor de los casos, de los gráficos 
definidos a que nos tiene acostumbra 
dos el BASIC. Con el método del LO- 
GO-SB podemos crear varias imáge¬ 
nes en muy poco tiempo, y con una 
gran calidad (no olvidemos que ten¬ 
drán 16 x 16 puntos, cuando lo normal 
es 8 x 8 y cada punto puede variar entre 
cuatro colores). 

¿Cuál puede ser la función del editor 
de formas? Ya mencionamos cambiar 
la imagen de la tortuga. Este caso se 
puede considerar trivial, pero atrayente 
para las edades más inferiores al ha¬ 
blarles de una tortuga, un coche, o un 
caballo (lo menos importante es el 
nombre) y que aparezca realmente el 
elemento nombrado. 

Sin embargo, se puede extraer mu¬ 
cho más rendimiento con el movimien¬ 
to. Por ejemplo, si queremos crear un 
muñeco andante, nos basta con dise¬ 
ñar dos o tres formas con el personaje 
en distintas posturas. Después sólo es 
cuestión de irlas visualizando sucesi¬ 
vamente. 


LA TORTUGA POLIGLOTA 

El LOGO-SB no sólo pone a nuestra 
disposición una tortuga obediente, sino 
que además puede hablar 5 idiomas 


distintos. Decimos «puede» porque se¬ 
gún se suministra el LOGO sólo entien¬ 
de órdenes en castellano. Para que sea 
posible trabajar en otros id lomas es ne¬ 
cesario adquirir la «GUIA DE LOGO» 
(hablaremos más adelante de ella), en 
la cual se encuentran todos los ficheros 
necesarios para trabajar en castellano, 
catalán, euskera, gallego e inglés. 

Cambiar de idioma no puede ser 
más fácil. Si nos encontramos en caste¬ 
llano y queremos cambiar a catalán 
basta con: 

?catalan 

Para pasar ahora a inglés se escribe 
este comando, pero en el idioma cata¬ 
lán: 

?angles 

Así podemos estar viajando de unoa 
otro idioma. La mencionada guía apor¬ 
ta un pequeño suplemento, sin encua¬ 
dernar, con las listas de primitivas de 
cada idioma y sus equivalentes en los 
otros. 

El hecho que la tortuga entienda dife¬ 
rentes idiomas no aumenta su potencia, 
ni la disminuye (la memoria libre sigue 
siendo la misma, porque según se car¬ 
ga uno se borra el que ya estaba), pero 
el LOGO será más fácil de aprenderen 
edades inferiores. 


LA OPCION «DIBUJARAPIDO» 

Además de dibujar con las primitivas 
comunes y ya conocidas, podemos 
realizar también dibujos directamente 
sobre la pantalla, igual que si fuera un 
«telesketch». Para ello, primeramente 
escribiremos: 

?dibujarapido "paisaje 

Es necesario acompañar la primitiva 
con un nombre (en este caso hemos 
escogido «paisaje») para guardar la 
pantalla dibujada en el disco con dicho 
nombre. 

Cuando escribimos dicha primitiva 
ya no es posible seguir trabajando en 
LOGO-SB con los comandos comu¬ 
nes, y la función del teclado cambia. 
Así, con las flechas de cursor movere¬ 
mos la tortuga 5 pasos adelante o atras, o 
la giraremos 10 grados a derecha o iz¬ 
quierda. Las teclas de función son 
equivalentes a primitivas de LOGO, por 
tanto, con sólo pulsar la tecla corres- 
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pondiente podremos cambiar el esta¬ 
do de la tortuga. 

Por ejemplo, «F6» equivale a «bajala- 
piz», «F5», a «goma», «F4», a «borra- 
pantalla». Igualmente es posible cam¬ 
biar de paleta y de color. La tecla «F8», 
tiene la función de rellenar una figura 
con el color en uso, sin embargo, esta 
opción no funciona, para ello debere¬ 
mos pulsar la «R», aunque así no se in¬ 
dique en el manual. Otras teclas son 
«S» para «su be lápiz» (igual que «F4»), 
«L» «bajalápiz» (como «F3») y «B» «bo- 
rrapantalla» (como «F6»), 

Este sistema de dibujo está indicado 
para los gráficos más complejos, o 
aquellos que no tengan unas formas 
regulares. Cualquier pantalla creada 
puede ser modificada por igual proce¬ 
dimiento. 

Podría ser interesante incorporar en 
esta modalidad nuevas opciones, co¬ 
mo la aparición en la pantalla de las 
coordenadas donde está situada la tor¬ 
tuga, o la posibilidad de modificar la 
longitud de su avance cada vez que se 


pulsen las flechas del cursor. Espere¬ 
mos que posteriores versiones del LO- 
GO-SB potencien esta modalidad tan 
interesante para realizar gráficos. 

OTRAS PARTICULARIDADES H 

En este corto espacio hemos preten¬ 
dido dar una ¡dea de lo que aporta de 
extraordinario esta versión de LOGO 
respecto a las demás. Sin embargo, en 
el tintero han quedado todavía algunas 
y no poco importantes características, 
como: 

— Ficheros secuenciales y aleato¬ 
rios. 

— Conexión con lenguajes de autor. 

— Utilización de gráficos de otros 
paquetes. 

— Ejecución automática de progra¬ 
mas al cargar el lenguaje. 

- Colores y sonido. 

- Editor de programas con instruc¬ 
ciones en pantalla. 


EL MANUAL 

El manual comienza desde lo más 
sencillo, explicando cómo es el tecla¬ 
do, qué es un diskette, formateado de 
discos,... A continuación, realiza una in¬ 
troducción con los comandos básicos 
y cómo empezar a trabajar (creación 
de procedimientos, por ejemplo) con el 
LOGO-SB El último capítulo, el más 
largo e importante, explica una por una 
todas las primitivas. 

El estilo del manual es lo más ade¬ 
cuado para aquellos que no sepan na¬ 
da de Informática. Su lenguaje es sen¬ 
cillo, acompañado de ejemplos y gráfi¬ 
cos aclaratorios, con índices alfabéti¬ 
cos, temáticos y generales, para fácil 
consulta. 

Pero como ocurre con los manuales 
de lenguajes, nunca basta para cono¬ 
cer a fondo cómo trabajar con ellos, 
siendo necesario recurrir, casi siempre, 
a libros complementarios. LOGO-SB 
no es una excepción; así. falta profundi¬ 
zar en algunos temas presentados, y 
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otros ni siquiera aparecen. Un ejemplo 
de este último caso es la falta total de 
explicaciones sobre cómo trabaja el 
LOGO con ficheros, tema que se trata 
en todas las versiones de LOGO. 

SOFTWARE DE BASE ante esta 
eventualidad ofrece la «GUIA DE LO¬ 
GO», que ya mencionamos anterior¬ 
mente, aunque mucho nos tememos 
que siga sin ser bastante, dada la ex¬ 
traordinaria potencia de este LOGO. 
Quizá la carencia más importante de 
todas en la guía y en el manual, sea la de 
una relación de los mensajes de error y 
las explicaciones de porqué ocurren. 


¿QUE LE FALTA A ESTE LOGO? 

Posiblemente este apartado debería 
llamarse «¿qué le sobra a este LO¬ 
GO?», porque tiene todo lo normal que 
se incorpora en este lenguaje y... más. 
También es posible mezclar gráficos y 
texto en una misma zona gracias a la 
primitiva PONCURSOR. Esta posibili¬ 
dad la incorpora el Dr. LOGO que se su¬ 
ministra con el CP/M 2.2, para el AMS- 
TRAD CPC-464, pero desapareció en las 
posteriores versiones de este LOGO, 
con el CP/M 3.0, del CPC-6128 y los 
PCW. 


Otra carencia generalizada es la im¬ 
posibilidad de realizar círculos directa¬ 
mente. En LOGO, gracias a la «tortugui- 
ta» es posible dibujar círculos, o más 
bien, un polígono de lados muy peque¬ 
ños. Este método es ideal para el 
aprendizaje de los gráficos y de proce¬ 
dimientos para la realización de figuras 
y, por tanto, del propio lenguaje. Peroel 
problema se encuentra en dibujos más 
complejos, cuyo objetivo no es la reali¬ 
zación del círculo, sino que éste es un 
elemento de la imagen, y la ejecución 
del dibujo completo se hace demasia¬ 
do lenta. 

Hay que dejar bien claro que lo men¬ 
cionado en este apartado no son de¬ 
fectos, sino ausencias que tiene cual¬ 
quier LOGO (hay más, pero éstas son 
las más destacadas) y podría estar 
bien incorporar. Los fallos del LOGO- 
SB ya han sido mencionados a lo largo 
del artículo, aunque nos queda por de¬ 
cir que en media resolución, los carac¬ 
teres especiales (las vocales acentua¬ 
das, c con cedilla y ñ) no se visualizan 
en los mensajes de error ni al escribir 
las órdenes (siempre y cuando no se 
hayan cargado los caracteres gráficos 
GRAFFABL). Así, para decir a la tortuga 
que avance 40 pasos, en catalán, de¬ 
beríamos escribir: 

avanza 40 

Mientras que aparecería en la panta¬ 
lla: 

?avan a 40 

Pero si hemos pulsado correctamen¬ 
te la tecla, que se sitúa en el lado iz¬ 
quierdo del RETURN, la orden se eje 
cutará correctamente. 

¡Ah! que a nadie se le ocurra prote¬ 
ger el disco del lenguaje contra escritu¬ 
ra, el LOGO-SB no se cargaría y debe¬ 
ríamos comenzar otra vez con el siste 
ma operativo. 

No obstante, para finalizar este ar¬ 
tículo, debemos reafirmarnos en la idea 
que ya adelantábamos en su comien¬ 
zo: LOGO-SB es sin duda, y con consi 
derable diferencia, lamejorversionque 
hemos visto hasta el momento de este 
lenguaje. 

Título: LOGO-SB 
Precio: 14.900 ptas. (+I.V.A.) 
Distribuidor: Software de Base 
Antonio Cavero, 32 
28043 MADRID 
TeL: (91) 759 54 31 
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de Sesto, 50. 28009 Madrid (Metro O'Donnell o Goyaí 
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PTAS. 


PTAS. 

FISTII . 

875 

XEVIUS . 

875 

DEEP STRIKE . 

875 

lOth ERAME . 

.. 1.200 

SUPERSOCCER . 

875 

LEADERBOARD . 

.. 1.200 

TERRA CREST . 

875 

EXPRESS RAIDER . 

.. 875 

D0UBLE TAKE . 

875 

ACE OF ACES . 

.. 1.200 

SH0RT CIRCUIT . 

875 

IMPOSSABALL . 

.. 875 

ARKAN0ID . 

875 

SIGMA7 . 

.. 875 

UCHI MATA . 

875 

BAZZOKA BILL . 

.. 875 

INSPECTOR GADGET . 

875 

DRAGON'S LAIR II . 

.. 875 

SHAOUN'SROAD . 

1.750 

SHADOW SKIMMER . 

.. 875 

S0FTAWARE AMSTRAD DISCO 

2.250 

(Incluido regalo calculadora) 



SPECTRUM PLUS + 
CASCOS MÚSICA STEREO 
19.800 PTS (incl. IVA). 
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PTAS. 

9951 
. 1.1951 

uuioix- |nRn . 2.6951 
nülCK SHOT U TURBO . ■ 

IqUICK SHOT IX —. 2.5951 

. 1-195 


IdUlCK SHOT 1 
QUICK SHOT H 


KON1X (micro: 


iswitchl 


IMPRESORAS 20% DTO. SOBRE P.V.P. 


CABLES E INTERFACES 
20% DTO. SOBRE P.V.R 

CADENA MUSICAL 27.900 PTS. 
VIDEO VHS AKAI 79.900 PTS. 
RADIOCASSETTE STEREO 6.895 PTS. 


SOLICITA GRATIS 
NUESTRO CATÁLOGO A 
TODO COLOR, DE 
NUESTROS PRODUCTOS 


RATÓN PARA AMSTRAD Y COMMODORE CON SOFTWARE 4.900 PTS. 

PEDIDOS CONTRA REEMBOLSO SIN GASTOS 
DE ENVÍO (si es inferior a 1.200 ptas. se cargarán 

150 ptas). LLAMA POR TELÉFONO. ADELANTAS TRES DÍAS TU PEDIDO TELF. (91) 274 75 02 / 

(91) 275 96 16 

—(Durante las 24 horas) 

SERVICIO TÉCNICO REPARACIÓN TARIFA FIJA: 3.600 PTAS. 

(incluido provincias sin gastos envío) 


PTAS. 
695 

OISKETTE 3"• ■ ■ ■ ■■■ — ■ 190 

OlSKEnE5 ll4 OCim 2 890 

lápiz Optico sPEcreuwi 2 890 

i ÁP17 ÓPTICO ANloinAU ■ 

oE««h«*■-■ £ 

MiCRODRWE — 2.600 

archivador nsc° QS 995 
IrAUOTIZ^^- 


CASSETTE ESPECIAL ORDENADOR 3.495 PTAS. Y 3.995 PTAS. 
COMPATIBLE PC-IBM 640 K 
2 BOCAS 360 K 
MONITOR FÓSFORO VERDE 
149.900 PTAS. (inelido IVA) 


CASSETTE ESPECIAL ORDENADOR 
3.495 PTS. Y 3.995 PTS. 

COMMODORE 128 . 54.900 

COMMODORE 128 + TECL. MUSICAL. .. 57.900 


¡¡GRATIS UNA IMPRESORA AL COMPRAR TU AMSTRAD!! 

Tiendas y Distribuidores, pidan lista de precios al mayor. C/. Galatea, 25 28042 - MADRID telef. (91) 274 75 03 





































































GRAN 
CONCURSO 


ATENCION 

COLEGIOS 


ESTE ORDENADOR 

AMSTRAD 

PUEDE SER VUESTRO 


AULA INFORMATICA 


Para premiar el mayor esfuer¬ 
zo en pro de la informática en las 
aulas, TU MICRO AMSTRAD 
convoca un concurso de progra¬ 
mación, el cual estará abierto a 
las aulas de informática de to¬ 
dos los colegios, institutos y aca¬ 
demias, sin limitación tampoco 
en cuanto al número de aulas de 
un mismo colegio que entren en 
concurso. 

Para esta convocatoria, 
le aguarda al centro ganador 
una bonita sorpresa: un ordena¬ 
dor AMSTRAD CPC 464/472 
CON MONITOR EN COLOR, y un 
buen regalo para todos los es¬ 
tudiantes que hayan colaborado 
en el programa, que todavía no 
desvelaremos porque lo bueno 
es participar por participar, y no 
por la obtención de un premio 
material. 


BASES DEL CONCURSO 


Los programas remitidos al con¬ 
curso deberá*, ser creación original 
de los autores, y completamente iné¬ 
ditos, pudiendo remitir tantos pro¬ 
gramas como se desee. 

Los programas deberán ser envia¬ 
dos en casete o diskete a TU MICRO 
AMSTRAD (Concurso Aula Informáti¬ 
ca). Apartado de correos 61.294. 
28080 MADRID. 

Los programas versarán sobre el te¬ 
ma REPRESENTACION GRAFICA DE 
FUNCIONES MATEMÁTICAS puden¬ 
do estar enfocados de cualquier ma¬ 
nera (juego, expositivo, etc), aunque 
sin olvidar nunca el objetivo del pro¬ 
grama, que no es otro que la asimila¬ 
ción por parte de un supuesto alum¬ 
no o grupo de alumnos del tema tra¬ 
tado. 

Además, todos los programas de¬ 
berán presentarse en los lenguajes 
BASIC, LOGO o CODIGO MAQUINA, o 
por supuesto, combinaciones de 
ellos. 

Los programas deberán ser remiti¬ 
dos desprovistos de cualquier pro¬ 
tección que impida o dificulte el aná¬ 
lisis del mismo, asi como su repro¬ 
ducción, en las páginas de la revista, 
y deberán estar diseñados en cual¬ 
quier ordenador AMSTRAD. 

Cuando la ejecución del programa 
precise de la concurrencia de un de¬ 
terminado periférico o aditamento 
(joysticks, ratones, programas co¬ 
merciales de ayuda, etc.), se valora¬ 
rá decisivamente la indicación de las 
modificaciones pertinentes, para 
que el programa pueda ser disfruta¬ 
do por cualquier usuario en la confi¬ 
guración básica. 
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Todo programa presentado al 
concurso deberá acompañarse de 
la siguiente información: 

• Datos personales del concur¬ 
sante. 

• Nombre del programa. 

• Modelo o modelos para el cual es¬ 
tá destinado. 

• Descripción del programa, deta¬ 
llando las indicaciones necesa¬ 
rias para su ejecución. 

Los programas premiados pasarán a 
ser propiedad de la revista TU MICRO 
AMSTRAD, pudiendo hacer ésta libre 
uso de ellos y renunciando sus au¬ 
tores a cualquier otra compensación 
distinta al premio. 

Los programas no premiados, que 
por su calidad se hagan merecedo¬ 
res de su publicación, serán adquiri¬ 
dos por la editorial, aplicando la tari¬ 
fa vigente. 

Los programas deberán ser remití 
dos desprovistos de cualquier pro¬ 
tección que impida o dificulte el aná¬ 
lisis del mismo, asi como su repro¬ 
ducción, en las páginas de la revista, 
y deberán estar diseñados en cual¬ 
quier ordenador AMSTRAD 

El jurado decidirá sobre todos losas- 
pectos no contemplados en estas 
bases y su decisión sera inapelable 

El plazo de admisión de programas 
para la quinta edición de este concur 
so de programación finaliza el día 1 de 
diciembre de 1987 
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ideales para la era 
del ordenador 


Certificación al 100% 
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MD1D 

MD2D 

MD2DD 

MD2HD 

Las necesidades actuales 
se basan en los modelos de 5 1/4" 
Panasonic le ofrece 
una respuesta estable y fiable. 


3V2" 

MF1D 

MF2D 

MF1DD 

MF2DD 

Los disquetes para 

la nueva generación de ordenadores, 
protegidos por un cartucho 
y cortinilla automática. 


CF2 

CF2D 

CF2DD 

CF1DD 

Modelos adecuados 

para los ordenadores Amstrad® 


Distribuidor oficial 

WÉICROESTRUCTURAS 

' Electrónicas, sa 

Castillejos, 283 - 08025 Barcelona 
Tel. ¡93) 347 67 33 - Télex 9B803 NCRB E 

Clara del Rey, 39, Of. 204 - 28002 Madrid 
Tel. (91) 413 22 43 
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Así funcionan los CPC ~ EL PERFIL 

La programación en su más bajo nivel, es decir, en código máquina, se encuentra íntimamente 
relacionada con el comportamiento de la máquina en sí; es por ello, que un estudio de la arquitectura 
básica de nuestro ordenador, desde el punto de vista de su programación, nos será de gran utilidad 
siempre que intentemos profundizar en el manejo del mismo, desde el lenguaje máquina. 


C omo podemos comprobar en el 
diagrama adjunto, el sistema se 
desarrolla en torno al micropro¬ 
cesador Z-80, teniendo éste como lu¬ 
garteniente, encargado de las tareas 
más arduas, la Gafe Array, que gestio¬ 
na el control lógico de todo el sistema, 
desde los modos de pantalla y su color, 
hasta la ROM. 


GATE ARRAY 

La gafe array es un circuito custom, 
es decir, especialmente diseñado para 
Amstrad, que desde el punto de vista 
de la programación, puede considerar¬ 
se como un port de ocho bits, controla¬ 
ble a partir de la dirección »7F?? (como 
siempre, a menos que se especifique 
lo contrario, todas las direcciones se 
expresan en su formato hexadecimal). 

Los dos bits de mayor peso (bit 7 y bit 
6) controlan su aplicación: 

00 —> Carga del registro de colores. 

01 —> Carga de la memoria de colo¬ 
res. 

10 -> Control de video e intercam¬ 
bio de ROMs. 

11 —> Reservada. 

En su función de control de video e 
intercambios de ROMs, los seis bits 
restantes (los de menor peso, desde el 
5 al 0) toman el siguiente significado: 

Bit 5 —> 0 

Bit 4 -> 1 Restaura a cero el disposi¬ 
tivo de interrupción. 

Bit 3 -> 0/1 Habilita/Deshabilita la 
ROM superior. 

Bit 2 —> 0/1 Habilita/Deshabilita la 
ROM inferior 

Bits 1 y 0 -> 0/1 Control de modos 
de pantalla según la configuración: 

00 —> Modo 0. 

01 —> Modo 1. 


10 —> Modo 2. 

11 —> Sin uso. 

En su función de carga del registro 
de colores, los seis bits menos signifi¬ 
cativos adquieren el siguiente valor: 

Bit 5 —> 0 

Bit 4 —> 0/1 Carga el código de tin¬ 
ta/borde. 

Bits 3 a 0 -> ??? 9 Establecen el có¬ 
digo de tinta. 15 colores disponibles. 

Por último, cuando se trata de cargar 
la memoria de color, los valores de los 
bits 5 a 0 son: 

Bit 5 -> 0 

Bits 4 a 0-> ????? Establecen la de- 
codificación del valor del registro de 
colores. Plasta 31 colores disponibles, 
según el modo de pantalla. 


LA MEMORIA 

Las memorias RAM y ROM consti¬ 
tuyen, lógicamente, otra parte esencial 
del sistema, y se encuentran pagina¬ 
das a efectos de direccionamiento por 
el microprocesador, en bloques. 

Los 32 K de ROM, en los cuales resi¬ 
de el firmware (sistema operativo e in¬ 
térprete BASIC) se hallan divididos en 
dos zonas de 16 K cada una: la baja (7o- 
wer ROM), desde «0000 hasta #3FFF 
y el bloque alto (upper ROM), desde 
«C000 hasta wFFFF, posiciones éstas, 
como veremos, circunstancialmente 
utilizadas también para albergar la 
pantalla. 

Este último detalle acerca de la up¬ 
per ROM, nos hace entender el sentido 
de la importante misión de la gafe 
array. Si efectuamos un POKE desde 
BASIC a las direcciones # C000 en 
adelante, probablemente obtendre¬ 
mos algún tipo de línea de color en la 


pantalla. Ello se debe a que en estas di¬ 
recciones de memoria, se halla la zona 
de pantalla. El sistema de paginado, 
controlado por Amstrad, es el que le 
permite discernir al referirse a las posi¬ 
ciones compartidas, si deseamos ac¬ 
ceder a la memoria de pantalla, o bien 
a la zona alta de ROM, aprovechando 
asi el espacio de memoria disponible 
al tope de su capacidad. 

Por otra parte, estas dos memorias 
pueden ser controladas separadamen 
te por la gafe array, tanto dentro como 
fuera del circuito normal. Así, existe una 
señal en el port de expansión que per 
mite desconectar la ROM interna, de 
forma que el microprocesador pueda 
acceder a cualquier ROM ubicada en 
el exterior del sistema. 

En cuanto a los 64 K de RAM (en los 
464 y 664 y la RAM principal de los 
6128), se halla obviamente entre 
#0000 y #FFFF, motivo por el cual com¬ 
parte sus primeros y últimos 16Kconla 
ROM. Este sistema no nos generará 
mayor problema a la hora de escribir, 
puesto que evidentemente se entiende 
que dicha operación se efectuará so¬ 
bre RAM. No obstante, en el momento 
de la lectura, es posible que en posicio¬ 
nes compartidas queramos accederá 
ROM o RAM; en tal caso, escogeremos 
las rutinas del firmware que nos permi¬ 
tan seleccionar la memoria apropiada. 

Como es conocido, la capacidad de 
direccionamiento del Z-80 es de sólo 
64 K, motivo por el cual, al emplearse 
esta cantidad de memoria para RAM, 
es preciso seguir un sistema de con¬ 
mutación de bancos, que posibilita el 
manejo de las 32 K de ROM del siste¬ 
ma, y que indirectamente permite ex¬ 
tender dicha memoria ROM, en expan 
siones externas, hasta un total de 4 032 
K (252 expansiones de 16 K cada una) 
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Cuando cualquiera de las dos ROM 
se encuentra habilitada, las lecturas 
correspondientes al área que ocupan 
(# 0000 a w 3FFF, la baja y « C000 a 
» FFFF, la alta) se suponen hacia la 
ROM, mientras que si se hallan desacti¬ 
vadas, dichas operaciones se dirigen, 
obviamente, a la RAM. Por contra, cual¬ 
quiera que sea el estado de las ROM, 
las escrituras siempre se realizan en 
RAM. 

Dejamos aquí el complicado sistema 
de conmutación, dado que nos preo¬ 
cupa fundamental mente el área de me¬ 
moria RAM, puesto que en esta zona, 


es donde supuestamente se desenvol¬ 
verá nuestro trabajo. 


Como podemos constatar en el dia¬ 
grama de bloques, otro chip de espe¬ 
cial relevancia es el PPI 8255 (Parallel 
Peripheral Interface, Interface Periférico 
Paralelo), cuya función se relaciona 
con la gestión del teclado y joysticks, 
PSG (Program Sound Generator, gene¬ 
rador de sonido programable) e indi¬ 
rectamente con el altavoz, casete y port 


de impresora. 

El PPI dispone de tres ports de co¬ 
municaciones. El port A se emplea en 
las transferencias con el PSG, conmu¬ 
tándose para entrada o salida, según 
convenga. El port B se utiliza esencial¬ 
mente en el control del casete y de la se¬ 
ñal BUSY de la impresora Centronics. 
Por último, el C se maneja como port de 
salida en el control del motor del case- 
te, o escritura de datos en el mismo, así 
como en la selección de filas del tecla¬ 
do y en las señales de STROBE de da¬ 
tos para el PSG. 

El 8255 es un chip diseñado inicial¬ 
mente para los microprocesadores de 
la serie INTEL 8080 con los cuales el Z- 
80 es compatible, como versión am¬ 
pliada y mejorada. En el PPI accede¬ 
mos a efectos de programación a 24 
bits (lectura/escritura), que desde el 
punto de vista lógico se distribuyen en 












Tabla del 8255 


H@Q 


dos grupos de 12 bits utilizados de dos 
modos fundamentales: 

— Como tres ports de entrada/salida 
de 4 bits. 

— Como un port de entrada/salida 
de 8 bits más cuatro bits para control 
de transmisiones (handshaking). 


No obstante, como ya hemos dicho 
antes, se puede hacer una división del 
PPI en tres ports de 8 bits (A, B y C), en 
el que el port C se compone de dos blo¬ 
ques de 4 bits, que conforman los gru¬ 
pos de 12 bits con los ports A y B. En la 
tabla adjunta están recogidas las mi- 


j MONITOR H 


GATE Array 


T~ t 


PSG 


I TECLADO 

YJOYSTICKS 


PPI 


CPU 


RAM 


| ROM | — 


PORT CENTRONICS 


CASSETTE 


Port A (entrada/salida) 

Bit Objetivo 

7 a 0 

Se corresponde con los datos (D7 a DO) para el PSG 

Port B (sólo entrada) 

Bit Objetivo 

7 

Lectura de datos del cassette. 

6 

Señal de BUSY de la impresora Centronics. 

5 


4 


3 

No disponible. 

2 


1 


0 

Interrupción de CRT (Cathode fía ys Tube, Tubo de Rayos 
Catódicos). 

Port C (sólo salida) 

Bit Objetivo 

7 

BDIR en la salida del PSG (señal del AY-3-8912 que 
discutimos al final del artículo). 

6 

BC1 en la salida del PSG (señal del AY-3-8912 estudiada al 
final del artículo). 

5 

Escritura de datos en el cassette. 

4 

Arranque/parada del cassete. 

3 a 0 

Selección de fila investigada en el teclado. 


siones encomendadas a cada uno de 
los bits individuales. 

El PPI se programa a través de un 
único registro de control de sóloescn- 
tura, para lo cual se efectúa un OUT en el 
port ít F7??, siguiendo la significación 
de bits que a continuación se relaciona: 

Bit 7 —> Selección para (^asigna¬ 
ción de bits del port C /1 =port de con¬ 
trol. 

Si el bit 7 se halla a 0, el registróse 
utiliza para asignar los valores de los 
bits del port C, y los restantes bits to¬ 
man el siguiente significado: 

Bits 6 a 4 —> Sin utilizar. 

Bits 3 a 1 —> Selecciona el número 
de bit a afectar. 

Bit 0 —> Fija el valor del bit seleccio¬ 
nado por los tres anteriores. 

Si el bit 7 se halla a 1, el registroactúa 
como port de control, y los restantes 
bits toman el siguiente significado: 

Bits 6 y 5 -> Selección del modo de 
operación para el port A; 00=primer 
modo / 0l=segundo modo. 

Bit 4 -> Fija el sentido de comunica¬ 
ción del port A. 1—entrada / 0-salida. 

Bit 3 —> Fija el sentido de comunica¬ 
ción de la parte superior del port C. 1 = 
entrada / 0=sal¡da. 

Bit 2 -> Selección del modo de ope¬ 
ración para el port B; 0=primer modo/ 
1=segundo modo (siempre será 0). 

Bit 1 —> Fija el sentido de comunica¬ 
ción del port B. 1=entrada / 0=salida 
(siempre será 1). 

Bit 0 -> Fija el sentido de comunica¬ 
ción de la parte inferior del port C. 1= 
entrada / 0=salida (siempre será 0). 

Finalmente, gracias al registro de 
control, es posible seleccionar el modo 
y sentidos de comunicación apropia¬ 
dos para, a continuación, proceder a la 
lectura o escritura, según convenga, en 
el port adecuado a cada caso. 


CRTCI 


El CRTC 6845 (Cathode Ray Tube 
Controller, Controlador del Tubo de 
Rayos Catódicos), en conjunción con la 
gafe array, supervisa todo el flujo de se¬ 
ñales hacia la pantalla. 

Se trata de un port de entrada/salida 
de 8 bits que puede controlarse gracias 
a sus diecinueve registros internos, el 
último de los cuales hace las veces de 
buffer para la programación de los die¬ 
ciocho restantes. 
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de El port BC?? se emplea para selec¬ 

cionar las direcciones de los registros, 
un y el BD?? para la escritura de datos en 

cri los mismos. Tengamos en cuenta que 

n el todos los registros son sólo de escritu- 

ión ra, a excepción del 14 y 15, debido a 

na: I que controlan la posición del cursor, y 

ia- portanto pueden ser leídos para averi- 

)n- j guar la ubicación del mismo. 

En la tabla titulada «CRTC» está re- 
se cogida toda la información sobre los 

los registros implicados, 

to- 


PSG 


IO- 


úa 

es 

de 

1 er 

a- 
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a- 


e- 
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a- 
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El PSG es un chip de especial inte¬ 
rés, dado que es responsable de una 
de las facetas más destacadas de los 
ordenadores Amstrad CPC: la genera¬ 
ción de sonido. Sus siglas provienen 
de Programmable Sound Generator 
(generador de sonido programable) y 
como su nombre indica, es de gran uti¬ 
lidad para el programador, puesto que 
es posible controlarlo desde lenguaje 
máquina, obteniéndose de él efectos 
sonoros de considerable calidad. 

En concreto, se trata de un circuito in¬ 
tegrado bien conocido, el AY-3-8912, 
pues también lo incorporan para la 
gestión de su sonido equipos tan cono¬ 
cidos como los Spectravideo. Su im¬ 
portancia reside en los tres canales de 
generación de sonido que puede con¬ 
trolar independientemente, con sus co¬ 
rrespondientes envolventes, así como 
uno de ruido blanco. Así mismo, dispo¬ 
ne de un port de entrada/salida, con¬ 
mutado por el PPI, como hemos visto 
anteriormente, que en modo entrada 
permite controlar el teclado y los joys- 
ticks. 

Su estructura general se puede divi¬ 
dir en los siguientes elementos: 

1 Generadores de sonido. 

Posee tres generadores de sonido 
independientes, denominados canales 
(A, B y C), cada uno de los cuales pue¬ 
de ser utilizado en solitario o en combi¬ 
nación con los demás, gracias al mez¬ 
clador, que mas adelante veremos. 

2. Generador de ruido blanco. 

El AY-3-8912 posee un generador 
de ruido blanco, consistente en la emi¬ 
sión sucesiva de notas de frecuencia 
aleatoria y muy corta duración, para si¬ 
mulación de ruido, lo cual permite ob¬ 
tener de este PSG efectos sonoros de 



notable realismo. 

3. Mezclador. 

Es la fase que permite la mezcla de 
los diversos canales y el generador de 
ruido blanco, para obtener efectos poli¬ 
fónicos. 

4. Control de amplitud fija. 

Este control de la amplitud es reali¬ 
zado por el propio microprocesador. 

5. Control de amplitud variable. 

En este caso, la amplitud la controla 
el propio PSG, gracias a un máximo de 
ocho envolventes. 

6. Conversor digital/analógico. 

Este conversor permite emitir como 

señales analógicas los sonidos, que ló¬ 
gicamente en el interior del ordenador 
no son más que números (magnitudes 
digitales). 

7. Port de entrada/salida. 

De este elemento obtuvimos infor¬ 
mación ya anteriormente. 

A efectos de programación, el PSG 
dispone de quince registros, de los 
cuales los catorce primeros se dedican 
a la emisión de sonido y el último (Reg. 
14) al control del port de entrada/sali¬ 
da, aunque sólo se emplea en funcio¬ 
nes de entrada: lectura del teclado y 
joysticks. 


En relación directa con este registro 
se halla el sexto bit del registro 7, dado 
que, como comprobaremos a conti¬ 
nuación, es el que controla el sentido 
del port, que como acabamos de decir, 
en nuestro caso siempre es de entrada. 

Los primeros tres pares de registros 
(Reg. 0 a Reg. 5) controlan las frecuen¬ 
cias de sonido para los canales A, B y 
C, respectivamente. Los primeros bytes 
de cada pareja tienen un valor que os¬ 
cila entre 0 y 255 y se emplean para el 
ajuste fino de la frecuencia, mientras 
que los segundos (Reg. 1, Reg. 3 y Reg. 
5) utilizan tan sólo los cuatro bits me¬ 
nos significativos; es decir, toman valo¬ 
res entre 0 y 15, y su misión es el ajuste 
burdo de la frecuencia. El valor numéri¬ 
co de la frecuencia se obtiene dividien¬ 
do 125.000 entre la frecuencia que se 
desea obtener en Hertzios. 

El séptimo registro tiene una función 
en todo similar a los anteriores, y su va- 











CONTROL DE ENVOLVENTES CRTC 


san 



lor de frecuencia se determina también 
mediante la misma fórmula, aunque se 
aplica al generador de ruido blanco. 
Sólo se emplean sus cinco bits menos 


significativos, motivo por el cual sus va¬ 
lores oscilan entre 0 y 31. 

El octavo registro es de gran impor¬ 
tancia, dado que controla la mezcla de 


los tres canales y el generador de ruido, 
así como el sentido del port de entrada/ 
salida, gracias a su bit 6, como vimos 
líneas atrás. Dicho bit, estará a 0 para la 
entrada (estado normal) y a 1 para la 
salida (no se emplea). Por otra parte,el 
bit más significativo (bit 7) tampoco se 
utiliza. Así, el significado de los seis bits 
de menor peso, que afectan a la emi¬ 
sión combinada de sonidos, queda de 
la siguiente manera: 

Bit 5 Ruido blanco en C 

Bit 4 Ruido blanco en B 

Bit 3 Ruido blanco en A 

Bit 2 Sonido en C 

Bit 1 Sonido en B 

Bit 0 Sonido en A 

En todo caso, el bit a 0 significa emitir 
el ruido o sonido, y a 1 desactivar la 
emisión por el canal correspondiente. 

Los registros 8 a 10 controlan la am¬ 
plitud de los canales A, B y C, respecti¬ 
vamente, empleándose a tal fin tan sólo 
los cuatro bits menos significativos de 
cada uno (valores de 0 a 15). El quinto 
bit (bit 4), fija el modo de control de am¬ 
plitud: estática (0) o por envolvente (1). 

El par de registros 11 y 12 controlan 
el período de la envolvente, siguiendo 
un método similar al empleado para fi¬ 
jar la frecuencia en los tres primeros 
pares de registros. En esta ocasión, la 
fórmula es: 

V=125000*T/16 

donde V es el valor y T el período. 

Cuando en el bit 4 de los registros 8a 
10 se indica el control mediante envol¬ 
vente, los cuatro b its de menor peso del 
registro 13 asignan a la envolvente la 
forma a emplear entre las ocho dispo¬ 
nibles. En la tabla titulada «control de 
envolventes» queda recogida toda la 
información al respecto. 

Como ya sabemos, el PSG es acce¬ 
sible a través de los ports A y C del PPL 
Parasu programación directa, los bits 7 
y 6, respectivamente, del port C del PPI, 
controlan las señales BDIR y BC1 del 
PSG, cuyo significado detallamos co¬ 
mo final de este artículo: 

BDIR=1 y BC1=1 —> Selección del 
registro a afectar; su numeróse halla en 
el bus DO a D7. 

BDIR=1 yBC1=0—> Elvaloraasig 
nar al registro seleccionado se halla en 
el bus DO a D7. 

BDIR=0 y BC1=1 —> Ubicación en 
el bus DO a D7 del valor leído en el re¬ 
gistro seleccionado 
BDIR=0 y BC1=0 —> No se utiliza 


Reg. 

Objetivo 

0 

Número total de espacio para caracteres disponible en 
horizontal (0-255). 

1 

Número de caracteres visualizados en horizontal (0-255). 

2 

Sincronismo horizontal (0-255). 

3 

Longitud de la sincronización (0-15). 

4 

Número total de filas disponibles (0-127). 

5 

Sincronismo vertical (0-31). 

6 

Número de caracteres visualizados en vertical (0-127). 

7 

Sincronismo vertical (0-127). 

8 

Modo entrelazado (0-3). 

9 

Scanning (0-31). 

10 

Línea inicial de búsqueda de cursor (0-31). 

11 

Línea final de búsqueda de cursor (0-31). 

12 y 13 

Dirección de inicio de la RAM de vídeo, expresada en peso 
alto-bajo. 

14 y 15 

Posición del cursor, expresada en peso alto-bajo. 

16 y 17 

Control para el lápiz óptico. 


Núm. 

Env. 

Bits 

3210 

Valores 

decimales 

Forma de la Envolvente 

1 

00?? 

0,1.2Ó3 

Un ciclo simple con comienzo en la amplitud 
máxima y caída hasta cero. 

2 

01 

4, 5,6 ó 7 

Un ciclo simple con comienzo en cero y 
ascensión hasta su máxima amplitud, con 
caída posterior hasta cero. 

3 

1000 

8 

La envolvente del tipo 1 repetida 
continuamente. 

4 

1010 

10 

La envolvente del tipo 3, pero con un 
ascenso hasta el máximo (ataque) más 
escalonado. 

5 

1011 

11 

La envolvente del tipo 1, pero con regreso al 
valor máximo al final de la misma. 

6 

1100 

12 

La envolvente del tipo 2 repetida 
continuadamente 

7 

1101 

13 

La envolvente del tipo 2, pero con regreso al 
valor máximo al final de la misma. 

8 

1110 

14 

La envolvente del tipo 6, pero con un 
ascenso hasta el máximo (ataque) más 
escalonado. 
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Colaboremos todos en la confección de este EN LA CUMBRE. Envíanos el 
nombre de tu programa favorito (no tiene por qué encontrarse ya en la cumbre), 
dejando bien claro tu nombre y dirección. Todos los meses sortearemos diez 
suscripciones a nuestra revista entre las respuestas recibidas. Anímate y 
escríbenos a: TU MICRO AMSTRAD. EN LA CUMBRE. Apartado de correos 
61.294.18080 MADRID. 
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El sistema operativo MS-DOS permite un número de opciones específicas para la configuración del 
sistema, las cuales han de estar incluidas en el archivo CONFIG.SYS. De esta forma, es posible 
adaptar el ordenador a las necesidades concretas de una determinada aplicación. 


E l archivo de configuración se pro¬ 
cesa automáticamente cada vez 
que inicializamos el ordenador, 
pero es importante no confundirlo con 
el fichero de proceso por lotes AUTOE- 
XEC.BAT que cumple una misiórt com¬ 
pletamente diferente. 

El sistema operativo MS-DOS permi¬ 
te un número de opciones específicas 
para la configuración del sistema, las 
cuales han de estar incluidas en el ar¬ 
chivo CONFIG.SYS. Este se debe en¬ 


contrar almacenado en el directorio 
raíz de la unidad empleada durante la 
inicialización del sistema, es decir, la A 
para los ordenadores con una o dos 
unidades de disco, o la A o C en los que 
disponen de disco rígido. Dichas op¬ 
ciones son las siguientes: 

BREAK Examen de la interrup¬ 

ción de un programa 
(CTRL-C). 

BUFFERS Número de almacena- 


COUNTRY 

mientos intermedios. 
Selección de identificati- 

DEVICE 

vo de país. 

Instalación de controla¬ 

DRIVPARM 

dores de dispositivo. 
Establece los paráme¬ 

FCBS 

tros para un dispositivo 
lógico. 

Número de ficheros 

FILES 

abiertos por bloque de 
control. 

Máximo número de fi- 



EL FICHERO DE 
CONFIGURACION 


Cómo configurar el sistema bajo MS-DOS 
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cheros que pueden en¬ 
contrarse simultánea¬ 
mente abiertos. 

LASTDRIVE Máxima letra permitida 
para una unidad de dis¬ 
co. 

SHELL Definición de un proce¬ 
sador de comandos de 
alto nivel. 



Para la creación del archivo de confi¬ 
guración CONFIG.SYS puede utilizarse 
jneditor de texto cualquiera, aunque al 
tratarse normalmente de un fichero de 
longitud reducida, por la comodidad y 
sencillez de manejo que supone, reco¬ 
mendamos emplear el programa RPE- 
D.EXE, incluido en los discos que 
acompañan al ordenador. También 
mediante la orden COPY CON CON- 
FIG.SYS es posible su creación direc¬ 
tamente desde el teclado. 

Hemos adoptado una serie de con¬ 
venios para ilustrar el formato de las di¬ 
ferentes opciones de configuración. 
Cuando un parámetro aparezca entre 
corchetes, éstos indican que su inclu¬ 
sión es opcional. Si dos se encuentran 
separados por una barra vertical (I), 
quiere decir que se tomará uno u otro. 


BREAK 

Este mandato tiene como propósito in¬ 
dicar a DOS que compruebe las pulsa¬ 
ciones CTRL-BREAK (interrupciones o 
cancelaciones) durante la ejecución de 
un programa. El formato es el siguiente: 

BREAK=[ON I OFF] 

El valor por omisión es BREAK=OFF, 
es decir, DOS comprueba las interrup¬ 
ciones solamente durante las opera¬ 
ciones que impliquen salidas y entra¬ 
das normales desde o hacia el teclado 
o la pantalla, impresiones y operacio¬ 
nes auxiliares. 

Para obligar al sistema operativo a 
comprobar una cancelación en el mo¬ 
mento que le sea solicitada, por ejem¬ 
plo, durante las operaciones de acceso 
a los diskettes, ha de situarse en el ar¬ 
chivo de configuración la orden 
BREAK=ON. De esta forma, es posible 
detener un programa que provoque 
pocas operaciones de salida normales 
(el proceso de compilación, por ejem¬ 
plo). 


buffers 

Permite establecer el número de al¬ 
macenamientos intermedios de disco 
(buffers) o (ampones, que el sistema 
operativo reserva en memoria, cuando 
se inicializa el ordenador. Su sintaxis 
es: 

BUFFERS=n 

siendo n, un número comprendido en¬ 
tre 1 y 99. Por defecto, el sistema opera¬ 
tivo establece 2, aunque para aplica¬ 
ciones avanzadas, entre 10 y 20 suele 
ser una cantidad suficiente. 

Cuanto mayor sea el número de al¬ 
macenamientos intermedios, más in¬ 
formación se encontrará en la memoria 
y por tanto, el sistema no precisará leer 
del disco para trasladarla a la zona de 
trabajo del programa en curso. 

Cuando el sistema operativo necesi 
ta leer o escribir un registro que no es 
múltiplo exacto del tamaño de sector, 
en primer lugar comprueba si esta in¬ 
formación se halla alojada en un tam- 
pón. De no se así, la toma del disco o la 
memoria. Sin embargo, si la informa¬ 
ción está ya contenida en el buffer, DOS 
la transfiere hacia el área de aplicación, 
sin necesidad de realizar una lectura 
del sector en el disco. Naturalmente, 
esta forma de trabajar conduce a un 
ahorro considerable en el tiempo de 
proceso tanto en lectura como en escri¬ 
tura, puesto que antes de ser grabado 
un registro en el disco, ha de ser trans¬ 
ferido de la memoria a un área interme¬ 
dia. 

En la mayoría de las aplicaciones 
que manejan ficheros de acceso alea¬ 
torio (bases de datos, aplicaciones en 
BASIC o PASCAL, etc.), la probabilidad 
de que el registro buscado se encuen¬ 
tre ya almacenado en un buffer aumen¬ 
ta con el número de áreas intermedias 
definidas. Por el contrario, cuando los 
accesos son secuenciales, no existe 
una gran ventaja por el hecho de tener 
muchas zonas de trabajo reservadas. 

Fijar un número óptimo de almace¬ 
namientos intermedios es casi imposi¬ 
ble. Cada aplicación es diferente de la 
otra. No obstante, podemos establecer 
que en aquellos programas que mane¬ 
jen accesos secuenciales o pocas lec¬ 
turas y escrituras aleatorias, el número 
por defecto (2) debe ser suficiente. 

En aplicaciones de bases de datos o 
cuando la información contenida en el 


disco está repartida en muchos subdi- 
rectorios, resulta conveniente probar 
entre 10 y 25, hasta encontrar el núme¬ 
ro que mejor rendimiento proporciona 
a la aplicación. 

Mantener una cantidad de lampones 
excesiva puede conducir a un bajo ren¬ 
dimiento del sistema, debido a que és¬ 
te toma más tiempo en encontrar el re¬ 
gistro en la memoria de lo que tardaría 
en leerlo del disco. 

Otra particularidad a tener en cuenta 
es la cantidad de memoria libre que 
queda cuando definimos áreas inter¬ 
medias. Cada buffer resta al sistema 
512 bytes, dejando menos espacio dis¬ 
ponible para los datos de la aplicación. 
Puede suceder por tanto, que el núme¬ 
ro de accesos a disco se multiplique de 
forma excesiva, dejándose notar esta 
circunstancia en el rendimiento global 
del programa en ejecución. 

En los sistemas con disco rígido, el 
mínimo exigióle debe ser 3. No obstan¬ 
te, del rendimiento de las aplicaciones 
manejadas con más frecuencia y de la 
memoria libre en el sistema, debemos 
obtener la cantidad óptima de almace¬ 
namientos intermedios a seleccionar. 


COUNTRY 

El mandato COUNTRY se utiliza para 
definir ciertos parámetros (formato de 
la fecha y hora, símbolo empleado co¬ 
mo unidad monetaria, separador de 
decimales, etc.) relacionados con el 
lenguaje de un país en cuestión. En la 
tabla que acompaña al articulo, están 
recogicfas las distintas posibilidades 
de esta orden. Su sintaxis es la siguien¬ 
te: 

COUNTRY=xxx 

donde xxx es un código de tres dígitos 
numéricos que identifican al país en 
cuestión (034, en el caso de España). 

Es muy importante tener en cuenta 
que este mandato nada tiene que ver 
con la orden KEYBSP, por ejemplo. Los 
mensajes del sistema no son traduci¬ 
dos al lenguaje del país que se haya 
señalado en la orden COUNTRY. 


device 

Este comando permite definir el 
nombre de un fichero que contiene un 
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controlador de dispositivo. Su sintaxis 
responde al siguiente esquema: 

DEVICE=[d:][path]nfich.[ext] 

Cuando se reimcializa el ordenador, 
el fichero especificado es cargado y el 
sistema operativo le cede el control pa¬ 
ra llevar a cabo la gestión de las opera¬ 
ciones de entrada y salida, impresión o 
control de unidades de disco flexible o 
rígido. 

En el disco número 1, se suministran 
dos controladores de dispositivo, DRI- 
VER.SYS y RAMDRIVE.SYS. Además, 
existe un controlador de las funciones 
de pantalla que se puede cargar in¬ 
cluyendo en el fichero de configuración 
la orden DEVICE=ANSI.SYS. 

Puesto que en el Amstrad PC 1512 
las características iniciales de la panta¬ 
lla están almacenadas en la RAM no 
volátil, estás se cargan mediante el 
controlador ANSI.SYS. Algunas aplica¬ 
ciones modifican estos parámetros ini¬ 
ciales. En tal caso, el programa ANSI. 
COM se encarga de reestablecer las 
condiciones iniciales. 


driver.sys 

DRlVER.SYS es un controlador de 
dispositivo que soporta unidades de 
disco exteriores. Para instalarlo, se de¬ 
be incluir dentro del archivo de confi¬ 
guración el mandato: 

DEVlCE=DRIVER.SYS/d:xx[/C][/F:ff] 

[/H:hh][/N][/S:ss][/T:tt] 

siendo /D:xx el número de unidad (0 a 
127 para discos flexibles y 128 a 255 
para discos rígidos). Los parámetros 
opcionales cumplen los siguientes 
propósitos: 

/C indica que es necesario el soporte 
de acceso por protección. 

/F:ff determina el formato, según las 
siguientes características: 

0=5.25”, 320/360Kb 
1=5.25”, 1.2 Mb 
2=720 Kb 

3=8” en densidad normal 
4=8” en doble densidad 
5=Disco rígico 
6=Cinta magnética 
7=Otros dispositivos 

/N identifica a un dispositivo no ex- 
zas (entre 1 y 99). 

/H identifica a un dispositivo no ex- 
traible. 



/S:ss es el número de sectores por 
pista (entre 1 y 99). 

/T:tt define el número de pistas por 
cada cara (entre 1 y 999). 


RAMDRIVE.SYS 


RAMDRIVE.SYS viene a sustituir el tra¬ 
bajo encomendado en versiones ante¬ 
riores del sistema operativo a VDISK. 
SYS, es decir, reservar una determina¬ 
da área de mamoria principal que pue¬ 
da ser empleada como RAM DISK o 
disco virtual. 

Los accesos a esta zona se realizan 
de la misma manera que a cualquier 
otra unidad de disco instalada en el sis¬ 
tema, aunque naturalmente, las trans¬ 
ferencias de información se realizan a 
velocidad muy superior. 

Para instalar en la 
principal del ordenador un 
disco virtual incluiremos dentro 
del fichero CONFIG.SYS el 


DEVICE=RAMDRIVE.SYS 

[bbb[sss[ddd]]][/A] 


donde bbb es el tamaño del disco en 
Kbytes. El sistema asigna por defecto 
64 Kbytes si no se define este parame¬ 
tro. El mínimo es 16 Kbytes, mientras 
que el máximo sólo está limitado por la 
cantidad de memoria presente en el 
sistema. 

Si al final del mandato incluimos la 
palabra clave NVR, al ejecutarse la ini- 
cialización, el sistema toma como ta¬ 
maño de disco virtual el establecido en 
la RAM no volátil. 

El tamaño de sector se establece en 
sss. El valor por defecto es 128 Kbytes, 
aunque 256,512 ó 1.024, también pue¬ 
den ser seleccionados. 

El siguiente parámetro (ddd) es el 
número de entradas en el directorio 
raíz de la unidad. El valor asumido por 
defecto es 16, el mínimo 2 y el máximo 
1.024. 

Finalmente, /A indica que un bloque 
de memoria extendido según la norma 
LIM (Lotus; Intel; Microsoft), se encuen¬ 
tra instalado en el sistema. De esta for¬ 
ma, los posibles discos virtuales se ubi¬ 
carán en las localizaciones altas de 
memoria, mientras que de no ser así, 
RAMDRIVE.SYS los situará en la zona 
baja. 


DRIVPARM 


Este comando define las característi¬ 
cas de un dispositivo lógico. Su sintaxis 
es la siguiente: 

DRIVPARM=/D:xx[/F:ff/T:tt/S:ss 

/N/C/H:hh] 

siendo /D:xx el numero de unidad 
(comprendido entre 0 y 255) Los pará¬ 
metros opcionales cumplen los si¬ 
guientes propósitos: 


/T:tt define el numero de pistas por 
cada cara (entre 1 y 999). 

/S:ss es el numero de sectores por 
pista (entre 1 y 99). 
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Aunque similar en su estructura a 
DRIVER.SYS, su objetivo es redefinir 
los parámetros anteriormente estableci¬ 
dos para el dispositivo lógico señalado. 


FCBS 


/H:hh es el numero máximo de cabe¬ 
zas (entre 1 y 99). 

/C indica que es necesario el soporte 
de acceso por protección. 

/N identifica a un dispositivo no ex- 
traible. 

/F:ff determina el formato, según las si¬ 
guientes características: 

0=5.25” 320/360 Kb 
1=5.25", 1.2 Mb 
2=720 Kb 

3=8” en densidad normal 
4=8" en doble densidad 
5=Disco rígido 
6=Cinta magnética 
7=Otros dispositivos 


FILES 

El mandato FILES se encarga de de¬ 
finir el máximo número de ficheros que 
pueden estar abiertos de forma concu¬ 
rrente. Su estructura es la siguiente: 

FILES=x 

siendo x, un valor entre 0 y 255, y que 
por omisión es 8. 

Cuando una aplicación abre un ar¬ 
chivo, el sistema operativo construye 
un bloque de control en su zona de me¬ 
moria y no en la de la aplicación. Dicha 
zona es la que define el mandato FILES. 

Para la ejecución de la mayoría de 
programas, el valor por defecto (8) re¬ 
sulta suficiente. Sin embargo, si se pro¬ 
ducen mensajes de error indicando un 


Este mandato permite establecer el 
número de bloques de control de fiche¬ 
ros (FCB, File ControlBlock) que el sis¬ 
tema operativo puede abrir simultá¬ 
neamente. La sintaxis es la siguiente: 


FCBS=m,n 


El primer parámetro (m) especifica el 
número de archivos que pueden abrir¬ 
se a la vez, mientras que n, determina el 
número de ficheros abiertos por FCB 
que no pueden ser cerrados automáti¬ 
camente por DOS, si un programa in¬ 
tenta tener más de los m archivos 
abiertos por FCB simultá¬ 
neamente. Es decir, ni los n pri- 
quedan protegidos para que no 
puedan ser cerrados, 
que puede establecerse cualquier can¬ 
tidad entre 1 y 255. Para n, por defecto, 
su valor es Oy ha de estar comprendido 
entre 0 y 255. 

La cantidad asignada a m ha de ser 
igual o superior a n. Si es igual, el DOS 
no podrá cerrar ningún fichero si el pro¬ 
grama intenta abrir más de m archivos. 
Además, si se intentan abrir más de m 
archivos, el sistema operativo no abrirá 
ninguno nuevo. 


número insuficiente de accesos, debe¬ 
rá aumentarse la cantidad x estableci¬ 
da. 

Otra particularidad a tener en cuenta 
es que si incluimos este mandato en el 
archivo de configuración, la porción de 
memoria residente ocupada por DOS 
se incrementa en 48 bytes por cada 
uno de los accesos adicionales que 
pasen de 8. 


LASTDRIVE 

LASTDRIVE define el máximo identi- 
ficativo de unidad (letra) que el sistema 
operativo reconocerá. Para ello, se in¬ 
cluirá en el fichero de configuración la 
orden: 

LASTDRIVE=d 

siendo d, cualquier carácter alfabético 
entre la A y la Z. El valor por omisión es 
LASTDRIVE=E, lo cual no significa que 
podamos acceder a todas ellas, a me¬ 
nos que previamente las hallamos ins¬ 
talado. 

El número mínimo de unidades que 
pueden indicársele al sistema, son las 
instaladas. De no hacerlo así, DOS ig¬ 
nora el mandato. 


shell 

Mediante este mandato es posible 
especificar el nombre y la localización 
de un procesador de mandatos de alto 
nivel, que será cargado durante la ini¬ 
cial ización del sistema, en lugar del ha¬ 
bitual COMMAND.COM. El formato es 
el siguiente: 

SHELL=[d:] [path] [nfich.ext] [param 1 ] 
[param2...[paramN]j] 

El desarrollo de procesadores de al 
to nivel es algo que sale fuera del al¬ 
cance de este articulo. Muchas aplica¬ 
ciones comerciales incorporan sus 
propios procesadores para optimizar 
el aprovechamiento del sistema. 

Naturalmente, dentro del fichero de 
configuración no es preciso definir to¬ 
das las órdenes descritas anteriormen¬ 
te. Basta, por supuesto, con incluir 
aquéllas que seleccionemos para per¬ 
sonalizar nuestro sistema. Con la prácti¬ 
ca y la experiencia encontraremos 
aquellos valores que aumenten su ren¬ 
dimiento hasta el óptimo. 
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CONFAS 

Programa de Contabilidad General. 



El programa de Contabilidad General CONFAS, distribuido 
por MICROGESA, está diseñado para realizar en el PCW 8512 la gestión 
completa de la Contabilidad de cualquier empresa, pudiendo integrarse 
además en el entorno de otros programas, como el de control de almacén 

y facturación (FAST y ALFAC). 


C ONFAS está pensado 
de forma que la labor 
de entrada de datos 
se realice de forma simple, 
evitando las tareas repetiti¬ 
vas. Se suministra además 
con un boceto de Plan Ge¬ 
neral Contable, para facilitar 


la tarea de codificación ini¬ 
cial de las cuentas. 


ORGANIZACION Y 
CARACTERISTICAS M 

La Aplicación se funda¬ 


menta en un paquete de 
más de 20 programas, los 
cuales se ocupan de dife¬ 
rentes ámbitos: manteni¬ 
miento del Plan Contable, 
conceptos automáticos, ma¬ 
sas patrimoniales, asientos, 
aperturas, regularizaciones, 


IVA, enlace con Facturación, 
visualización y listado de 
Mayor y Diario, impresión de 
Balaces de Sumas y Saldos 
y Situación, más otras labo¬ 
res auxiliares como las de 
clasificación, reorganiza¬ 
ción de ficheros, etc. 

El programa maneja tres 
tipos de ficheros: Plan Con¬ 
table, Asientos y Apuntes, y 
Auxiliares de Datos. De és¬ 
tos, el Plan Contable y los 
Auxiliares de datos están 
contenidos en la unidad de 
disco de baja capacidad, 
junto con los programas, 
mientras que la unidad de 
alta capacidad, está reser¬ 
vada para contener los fi¬ 
cheros de Asientos y Apun¬ 
tes. 

La Aplicación trabaja con 
códigos de cuenta de 6 dígi¬ 
tos, a su máximo nivel de de¬ 
talle, pudiendo existir unto- 
tal de 500. Además, pueden 
definirse cuentas de 3 dígi¬ 
tos, consideradas como de 
Mayor, sobre las cuales es 
posible también realizar im¬ 
putaciones directas. 

La entrada de datos se 
realiza en el formato de 
«pantalla completa», no 
siendo necesaria la creación 
de ficheros intermedios de 
trabajo, procesándose, veri¬ 
ficándose y actualizándose 
los movimientos, en tiempo 
real. Además, se permite la 
modificación de los apuntes 
introducidos, en cualquier 
momento. 

Para tener una idea sobre 
la capacidad de los ficheros 
de Asientos y Apuntes, po¬ 
demos decir que el disco 
admite, a modo de ejemplo, 
las siguientes configuracio¬ 
nes; 1.000 asientos y 34 000 
apuntes, 5.000 asientos y 
27.000 apuntes, y 7.500 
asientos y 22.500 apuntes. 


PUESTA EN MARCHA 

inicial 

La primera operación a 





















realizar es la imcialización 
de los discos (formateado), 
uno en densidad normal y 
una cara, y el otro en doble 
densidad y doble cara, ha¬ 
ciendo uso para ello de la 
utilidad DISKIT A continua¬ 
ción, debe cargarse el pro¬ 
grama en memoria, para sa¬ 
lir de él a través de la opción 
de fin de trabajo, cambiar el 
disco de la unidad A a la B e 
introducir en la unidad A el 
disco formateado. Conclui¬ 
da esta operación, tecleare¬ 
mos: 

PIP A: = B: CONTABLE + 

Concluido el proceso de 
copia, obtenemos un disco 
válido para poner la Aplica¬ 
ción en funcionamiento, ya 
por el sistema habitual. 

Para el arranque diario, 
basta con introducir el disco 
de programas en la unidad 
A y encender el ordenador. 


MENU PRINCIPAL ■ 

En el menú principal apa¬ 
rece la gama completa de 
posibilidades, cada una de 
ellas encuadrada en su co¬ 
rrespondiente grupo, ha¬ 
ciendo un total de 9. Ade¬ 
más, en la zona inferior de la 
pantalla, se muestra el nú¬ 
mero de cuentas, asientos y 
apuntes utilizados, así como 
el porcentaje de ocupación 
expresado en kbytes. Con¬ 
viene vigilar este último dato, 
de forma que no se superen 
los 700 Kbytes del disco de 
alta capacidad. 


INICIALIZACION DE 
LA CONTABILIDAD H 

Al poner en funciona¬ 
miento el programa por pri¬ 
mera vez, es necesario con¬ 
figurarlo, introduciendo el 
nombre de la empresa, las 
claves de acceso y los códi 
gos de impresora, antes de 
definir el Plan Contable. 


Dentro de este apartado, se 
definen también las carac¬ 
terísticas de la impresora: 
caracteres de control más 
usuales, formato del papel, 
etc. 

MANTENIMIENTO DEL 
FICHERO DE CUENTAS 

A través de esta opción 
puede personalizarse el 
Plan General de Cuentas su¬ 
ministrado por el programa. 
Del mismo modo, puede 
definirse el formato del Ba¬ 
lance de Situación a través 
de las masas patrimoniales, 
aunque es más cómodo ha¬ 
cerlo a través de la opción 
de mantenimiento de ma¬ 
sas, contenida en el Menú 
Principal. 

La adaptación a nuestras 
necesidades del fichero pro¬ 
puesto es sencilla. Podemos 
visualizarlo primero registro 
a registro, o por páginas 
completas, para posicionar- 
nos a continuación en el lu¬ 
gar apropiado y añadir, mo¬ 
dificar o eliminar. Por último, 
y para verificar los resulta¬ 
dos de la modificación, po¬ 
demos obtener un listado 
del mismo por impresora. 

MANTENIMIENTO DEL 
FICHERO DE 
CONCEPTOS HHI 

El objetivo de esta opción 
es el de mantener el fichero 
de conceptos, el cual contie¬ 
ne una serie de descripcio¬ 
nes más o menos normali¬ 
zadas de asientos, califica¬ 
das por un código de con¬ 
trol. Su objeto es ahorrar 
tiempo en la entrada de da¬ 
tos, consignando únicamen¬ 
te el código de descripción 
en lugar del texto completo. 

MASAS 

PATRIMONIALES 

La definición de las masas 
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Li pantalla dtl ••nú principal ti Ji eiguianta 



omisa it muoi s.i. 


ftantmiaieato Pili 
Kantemairato Concerní 
huí Patr manía les 

Libra de hyu 

Libre liaría 

{alance iiaui | Saldes 
lalance de Sitiaciéi 

IniC. Contabilidad 

Canil» latas laioialel 

CaaracUcun ficheros 
Claiificacioi dsieatoi 

tmnraracMMi 

Asienta le tvertura 
Asienta Irjylar iucj 
I siente I.l.l. 

■escaria del leriodt 
Cierrr del Ejercicio 

Inlace Pros, tatemos 
Cantío biscos 0 focha 
fin de Trabajo 



En ella u l« presenta «I conjunto de opciones posibles, Vd «la- 
qira um dt ellas utilizando ln tedas flacha tí» la parir dertcha dtl 
teclado, <[»),(•],y lutgo pulsando la leda IRETURN] o 
(IHTROl. ND1A Estas dos tedas ion mflllUmll touicalentes » i 
cit.Ut.-iit _ituu tik mugí it mUml jnitimU i li Utlt 

merman 

En li parte <3t abajo u autitra una Unta infernal iva ton «i 
núaerc dt cuentas usadas, «I núitro dt aiuntci. •! núitro dt apuntes 
y la (apandad total utida «n *b 


umm i. uitiamam be l*ummium. 


la printra vea <jut Vd tapiazt una nut«a contabilidad, dtbirl 
initializir loa datos para que ésta tapitzt a ejecutarse corre;ta«en- 
ta 


Entre las tareas a realizar estin la introducion dtl notare dt 
I la «tprtia, las datu dt acceso y los cddigos dt la japresora Lutgo 
debed dtfimr su plan contable • inicial izar lo 



Aparecerá la siguitntt pantalla. 



Honare dt la enema tlHA.ia-Ll.iq j|i IIH—— 

Claat li acctsa 1 I 1 Cíate át atóese 2 I 1 

Sisea It datos m teiidaá 11:1 Ijtrcitt lit (ATI 


¡"£ 


— dable ancha 
itar doblt anchi 
mer arpita 
litar ntsrita 
ncialiur inrmiá* 

twrt dt Untas par pinna Ull 


If 

27,17,11 


ti: late anterior UMihli ; Sipumit tale M&: Viluee al atrii 


la uportanti tacar tn cumia que la capacidad dt un disco dt 
doblt cara doblt densidad ts de algo ato dt 709 Kb , si la ocupación 
ti coreana a tala cifra «aa el procadiaiecto dt 'Descaiga del Periodo* 
aas adelante 
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Introduzct «I notbn dt tu taprtsa, lai Claris dt acctio, dindo 
quitro qut rtsidtn los dotos dtl diorio, (los dtl oayor aiooprt ron¬ 
den tn la unidad A:> y el ejercicio en cuno. Si utiliza papal do lon¬ 
gitud diforenta a SI Untas, caabii osta valor en ti caapo 
* Irte sal izar iopresidn' y en ti dt ‘Kuotro dt lineas por plgwt* ho 
olvida caabiarlo en atbof ladts. 


CAPITULO 2 CREACION Y TIAWTEH[BIEIITD DEL PLAN COHTflBLE 


Can esti opciin putdt adaptar el plan contable suoinistrado cm 
el prograoa al suyo propio, asi oisno puede definir el baltnct di 
situando a través de las oasai patriaomales, aunque ésto as oejor 
hacerlo con la opcidn dt aanttniaianlo dt 'Pasas Patriionialet*. dtl 
■enO principal 

La pantalla qut apartct ts la aiguiintt 


'■ . ' jMftwnehwfiaah. 

Cuenta 

Honbre de la cíenla 

Nasa PatriMoial 

V7 

NT 

!íi 

111 

HE 

12 

12* 

122 

!L 

ib 

I 

Capital 

Capital lecu) 

Reservas 

Plosualu pv resalar isacüs de activa 
Atsrruas leaales 

Arsfrws Veluatarias 
frevisioies 

Previstos para rieseis 

Frevisiéa Autosejure 

Atsultales ptndieolet di apliuciva 
nrsultadas nepaliues 

Inprtsites 

Obiifaciones e bonos IMplei 

Situacienei transitorias de finaiciacioa 
Oblif. e binas pendientes de suscripción 

ctrnN. t usums 

CANTAL y AFSOWS 
CAPITAL Y I1SUVNS 
CAPITAL 1 A! ViMS 

CAPITAL 1 D socas 

P 

P 

f 

f 

I 


Con los cursores podrios aligar la cumia y la tarea a realizar 
sobre ella Con las laclas U1 y !•) podrios elegir «olvtr al atnb, 
ver la plgina de una deterainada cuenta, afadir cuantas ■) pisa, 
■Odificar o elmnar cuantas, o loprmr ti plan por lopresora 

Con las todas [di y (ti putdt ir do una cumta a otra Si dista 
ir ais dtprisa, pulsando Cfl] o C/3) puede visualizar dt quince tn 
quima cuentas 
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CflPlTULO 3. amaUMUfl PC conceptos 


Esta opcidn as auy sencilla; siopUairta sirva para lanar prede¬ 
finidos una strit dt conceptos que autcillicaaante, podrir, utilizarse, 
Si ft dista, tn la doscnpcidn dt los asuntos conlabUi 





Para utilizada, nos tituartnos ancua dtl nünero dtl concepto 
qat qutraaci dtlimr, alegiraaos la opcitn aodihcai • intrndocirtaoi 
el cbncepto qut quintos 

Con la opcitn ispriiir, obtaodreeos una copia an paptl dt los 
conceptos definidos 
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LUktmuida de Midi Pilnioaulri. 

Us aasas se definen da foraa idtntica a ceon te definieron los 
conceptos en el capitulo anterior 




La asignación dt cuentas a cada tasa te nace utilizando la opuOn 
‘Asignar* dtl lubneníi dt la Unta inferior. En priaer lugar, nos 
colocasos sobre la cuente a ll qut quinaos aaignar y lutgo elegíaos 
la opuin. 

Apiracen en pantalla todas las cuentas asignadas a la easa, ir el 
uso dt que tenge alguna. Luego podeeoi utilizar lai opcionta dtl aenCi 
inferior para aRadir cuentas a la aasa o bien eliamarlat 
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Cmc ya ai evplici en opciones interiores, con las teclas di 
cursor U1 y (ti, Vd elige *1 «tiento que desea eodificar o elismar 
y lutgo «ligo le accidn que desee realizar. 

Tanto aliad ir taue eodifuar, presentan la aiguianla pantalla: 


fecha: 12S/SI/I71 tocoaesta I 1 Amata Nía.: S 

Cescepta: (NI dativa Na. AT1/I7 ] listai •<«.: e 



Coao sa re, 1* pantalla eitl coapuaita dt dos partes, la ubicara 
dtl asiento y los apuntes propiisonta dichos 

En la cabecera se deben rellenar los cupos de 'Fecha', ’Oocuaen- 
to* y 'Concepto* En asta Cltiac dato, si se especifica un núatro, 
oparece uno 0 « fot conceptos pretírf indos luego, este ccncopto puede, 
si te desea, ser eodificado. 


A continuasi(n, se deben introducir los Mientes uno tras otro. 
Pnesro se rellene le cuente, luego el prograaa visualiza ti nosbrt y 
entonces te debe introducir el leporte dtl «punía. Si el cursor «ttl 
en la coluana de cargos y nosotros destetos hacer un «bono, te dsbe 
pulsar priaero la tecla [CAN] y luego IRETVRN1, dt este (crea pastaos 
a la colutna de abonos Aapitiando la operacidn, pasaios dt una 
colunia a otra tantas veces ceue desnuca. Esto catbión sucede *i 
«tcribiaot coao leporte del apunte un cera 


la pantalla que aparece es la siguiente. 



Codita: K 


f 

iS 

Terrenas y bieart naturales 
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hMuinarii. Instalacionrs 
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■futen dt Iifonut ta 

Anert. aovillada Inaov. Hat. 

Previsión per depreciación dt tvreaes 
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La entrada de asiantos tita pansida pira que sa retina oa una 
foraa cdiodt y rápida a la vez, persitierdo al usuario un total con¬ 
trol sobra al diario, de foraa que, an cualquier miento se pueda »o- 
dificar o eliairar coapletaeonta cualquier asiento previaatrlt irlro- 
ducido El prograaa actualiza autoMlicaaente el diario y *1 aayor en 
al ai sao nuontc an que un Miento es alUdide, eodificado a el tunado, 
de lotea que estos libros se pueden obtener coapletaaente al día fin 
tener que realizar ninguna operación auxiliar 

El prograaa tliuna de esta foraa la recaudad dt llevar un bo¬ 
rrador. que sera ais tarde introducido en la contabilidad, asta tarea 
es raalizida lutcedlicaaerle Esto se consigue gracias a la utiliza- 
clin de las its aodernas y coaplnadas tdcnicss de mdexacibn y enca- 
denaaientc de ficheros 

LLdmmmmk a«i duna 

En pneer lugar se le auestra la siguitrit pantalla 
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f ? Libro it duna 

Li foraa de optrir con esta opcidn, es ídtntici i la anterior La 
pantalla mitrada as 
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friaer Isieata (1 1 lltiae Ésiesta (E I 
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ttl: late aliviar SiULyjifjajita I*r»ip rstrida de datas 
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patrimoniales, junto con su 
asignación a éstas de las 
cuentas del Plan Contable, 
permite configurar el Balan¬ 
ce de Situación. Existen 15 
masas de Activo y otras tan¬ 
tas de Pasivo. Las masas 
aparecen en listado del Ba¬ 
lanceen el orden especifica¬ 
do, no constando aquellas a 
las que no existe asignada 
cuenta alguna. 


ENTRADA DE 
ASIENTOS I 

La entrada de asientos 
permite al usuario total con¬ 
trol sobre el Diario, facilitan¬ 
do la corrección o elimina¬ 
ción de cualquier movimien¬ 
to introducido. Por otro lado, 
el programa actualiza en el 
mismo acto el Diario y el 
Mayor, de forma que estos 
registros se mantienen per¬ 
manentemente actualiza¬ 
dos. 

Durante la entrada de mo¬ 
vimientos, se presenta en 
pantalla la cabecera del 
asiento: fecha, documento y 
número. Como líneas de de¬ 
talle aparecen cada uno de 
los apuntes simples, cada 
cual con su número de línea, 
cuenta, título e importes al 
Debe y Haber. Al pie de pá¬ 
gina, aparecen los totales de 
Debe y Haber y el descua¬ 
dre. 


REDACCION 
AUTOMATICA 
DE ASIENTOS I 

La Aplicación genera de 
forma automática algunos 
asientos, como el de apertu¬ 
ra, el de regularización o re- 
clasificación y el de IVA. Aún 
asi éstos pueden ser modifi¬ 
cados una vez generados, a 
través de la opción de man¬ 
tenimiento de movimientos. 

Básicamente, la opción 
de asiento de apertura per¬ 


mite remiciarlaContabilidad 
de un nuevo ejercicio. 

El asiento de reclasifica¬ 
ción permite transferir los 
saldos de las cuentas de 
gestión (grupos 6 y 7) y de 
existencias (3), solicitando el 
importe de las existencias fi¬ 
nales y volcando el resulta¬ 
do en la cuenta de explota¬ 
ción (800). 


IMPRESIO N DE LIBROS 

oficiales 

A través de esta opción es 
posible dar salida por panta¬ 
lla o impresora a los libros 
Diario y Mayor, con la opción 
de intervalo entre fechas, o 
entre asientos para el caso 
del Diario, y entre cuentas 
para el caso del Mayor. 


COMPACT ACION DE 

ficheros 

Esta serie de programas 
realiza, tanto la compacta- 
ción de ficheros, como la re¬ 
cuperación de los que 
hayan podido resultar daña- 


Título: CONFAS (PCW 

8512). 

Precio: 24.500 ptas. 
Distribuidor: Microgesa. 
Silva, 5, 4.". 

28013 MADRID. 

TeL: (91) 242 24 71. 


dos. En este último caso, la 
Aplicación intenta recuperar 
la máxima información posi¬ 
ble de los discos para re¬ 
construir los ficheros. 

Este proceso, que puede 
evitar la pérdida definitiva de 
valiosos datos, y es aplica¬ 
ble tanto al Plan Contable 
como al Diario. 


CLASIFICACION POR 

fechas 

Esta opción clasifica los 
asientos introducidos por or¬ 
den cronológico. Sin embar¬ 
go, el proceso resulta bas¬ 
tante lento, llevando una me¬ 
dia hora por cada 1.000 
apuntes. Además, y debido 
a la lentitud del proceso, es 
conveniente obtener una co¬ 


pia de seguridad del fichero 
antes de emprender la clasi¬ 
ficación, ya que podría pro¬ 
ducirse un corte de tensión 
con la consiguiente pérdida 
de información que ello su¬ 
pone. 


ENLACE CON 
FACTURACION I 

La Aplicación realiza, de 
forma automática, el pase a 
la Contabilidad de los asien¬ 
tos, consecuencia de las 
facturas emitidas por el pro¬ 
grama FAST o ALFAC, tanto 
para el caso de clientes co¬ 
mo de proveedores. 

Por último, diremos que la 
contabilización de facturas 
implica pasar por la opción 
de enlace con programas 
externos, introduciendo los 
discos de datos de factura¬ 
ción. A continuación, se pre¬ 
gunta por la versión del pro¬ 
grama y nombre de éste, asi 
como por los códigos de las 
cuentas sobre las que se de¬ 
sea se efectúen los asientos 
(importe bruto, importe neto 
y diversos tipos de IVA). 
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GESTION DE STOCKS 


Una magnífica aplicación para teclear en los CPC 6128. 



En el mes de enero de este año, publi ^ ' camos a través de estas mismas 

páginas el programa ganador de la pri ^ mera edición de nuestro concurso: 

Gestión Bancaria. Este mes, completamos la cadena denominada GESTION, con un programa 
dedicado al control de almacén diseñado por el mismo autor de la Gestión Bancaria. 


C omo hemos dicho, este progra¬ 
ma forma parte de la cadena 
GESTION, cuya publicación co¬ 
menzamos en el número 10 de nuestra 


revista TU MICRO AMSTRAD. Dado 
que gran cantidad de software de so¬ 
porte es común a su compañero Ges¬ 
tión Bancaria, aquellos lectores que ya 


tuvieran oportunidad de disfrutar de 
aquel programa, y deseen implemen- 
tar éste en la cadena, sólo tendrán que 
efectuar pequeñas modificaciones (re- 
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señadas en este artículo) a los progra¬ 
mas introducidos para GESBANC y por 
supuesto, el listado completo de la apli¬ 
cación de control de almacén en sí 
(GESTOCK). 

No obstante, como quiera que este 
programa, al igual que GESBANC, 
lambién puede funcionar de forma in¬ 
dependiente, indicaremos todos los 
pasos necesarios para la adopción del 
software común de apoyo. 

Antes de comenzar a trabajar con la 
aplicación de gestión de almacén 
(GESTOCK), es necesario realizar una 
serie de operaciones destinadas a aco¬ 
modar el disco que contendrá los pro¬ 
gramas, así como someter algunos a 
determinadas modificaciones, para 
que respondan a los requerimientos 
que todo el conjunto precisa. 

1. Inicializar un disco en formato 
SISTEMA, al que en lo sucesivo nos re¬ 
feriremos como «disco de programas». 

2. Ejecutar la rutina RANDOM- 
F.BAS, presente en el disco de regalo 
que se proporciona junto con el orde¬ 
nador: 

RUN “RANDOM-F” 
y sustituir el diskete alojado en la uni¬ 
dad A, por el anteriormente formatea¬ 
do. 

3. A continuación, seguir las indi¬ 
caciones impresas en la pantalla, y 
contestar a las preguntas que el pro¬ 
grama presenta de la siguiente forma: 

* NOMBRE DEL FICHERO... ID 

* NUMERO DE FICHAS... 1 

* LONGITUD DE FICHA... 3 

* DISCO... A 

4. Situaren la unidad A el disco de 
regalo (el que acompaña a los dos dis¬ 
cos del sistema del CPC), y ejecutar las 
siguientes instrucciones BASIC: 

MEMORY &9BFF 
LOAD “RANDOM.BIN” 

5. Una vez cargada esta rutina de 
gestión de ficheros aleatorios, teclear la 
siguiente instrucción como comando 
directo: 

FOR l=&9C4A TO &9C7E: 

POKE l,0:NEXT 

6. Sustituir el disco de regalo por el 
de programas y teclear; 

SAVE “ALEATOR.BIN”, B.&9C00.1792 
7 Ejecutar las instrucciones si¬ 
guientes: 

CALL &9C00 

A$=“ID”: |OPEN, (S> A$, 1,3,1 
X$=“1 ”:REM X$ es igual a 1 y dos 


espacios en blanco 

|WRITE,rS) X$,1,1:|CLOSE 
-8. Seguidamente introducir en la 
unidad A, el discode CP/M Plus (cara 1 
de los suministrados con el sistema) y 
ejecutar las órdenes: 

MEMORY &7FFF 
LOAD “BANKMAN.BIN” 

9. Sustituir el disco por el de pro¬ 
gramas y grabar esta ultima rutina: 
SAVE “BANKMAN.BIN”,B,&8000,&525 
10. Finalmente, teclear los listados 
de los programas que acompañan al 
artículo, y grabarlos con el nombre que 
se indica en los REM del principio de 
cada uno de ellos. 

Al efectuar un directorio del disco de 
programas deberán aparecer los si¬ 
guientes ficheros: 

DISC.BAS ALEATOR.BIN 

SUBAUX.BAS ID. 

IPL.BAS GESTOCK.BAS 

GESINT.BAS BANKMAN.BIN 
En caso de haber comenzado la in¬ 
troducción de la cadena desde el pro¬ 
grama GESBANC, este último título figu¬ 
rará también en el directorio, y no será 
necesario preparar ningún nuevo disco, 
siguiendo el método expuesto en este 
apartado, dado que servirá el mismo 
que inicializamos para GESBANC, en 
el cual grabaremos simplemente la 
nueva aplicación. 

En cuanto al programa IPL se refiere, 
si disponemos de la versión 1, creada 
para GESBANC, sólo será necesario 
que lo sustituyamos por la número 2, 
que acompaña a este artículo, cuyas 
únicas modificaciones sobre la original 
se encuentran en las líneas 50, 60 y 
280. 


INSTRUCCIONES GENERALES ■ 

Ya tenemos un disco de programas 
preparado, y podemos comenzar a 
manejar la aplicación. 

Para llevar a cabo su misión, la cade¬ 
na se apoya en varias aplicaciones, de 
cuya descripción trataremos a conti¬ 
nuación, cada una de las cuales gestio¬ 
na una zona específica del objetivo 
completo de la cadena. 

Las mencionadas aplicaciones se 
denominan: 

DISC 

GESINT 

GESTOCK 


La primera de ellas (DISC), consti¬ 
tuye la aplicación de entrada a la cade¬ 
na y es imprescindible para su lanza¬ 
miento, indicando al resto de los pro¬ 
gramas datos de importancia para su 
posterior ejecución. Su listado no difie¬ 
re en nada de aquel publicado en su 
momento para la adopción de GES¬ 
BANC, motivo por el cual, aquellos que 
ya dispongan de él podrán dejarlo in¬ 
tacto en el disco de programas. 

«GESINT» es la aplicación de enlace 
con las otras zonas de la cadena, y con¬ 
tiene además la opción de regenera¬ 
ción de ficheros, que convierte esta ca¬ 
dena en especialmente útil, ya que la 
hace duradera, al posibilitar el encade¬ 
namiento de infinitos datos en sucesi¬ 
vos disketes. 

Asimismo, «GESINT» implementa la 
opción de fin de programa, por la que 
OBLIGATORIAMENTE deberemos 
pasar antes de dar por finalizada cual¬ 
quier jornada de trabajo con la cadena. 

En lo referente a este programa, 
aquellos que dispongan de la primera 
versión del mismo (la correspondiente a 
GESBANC), sólo deberán modificar o 
incluir las siguientes líneas de su lista¬ 
do: 50,60,100,110,140,150,180,520, 
530, 1010, 1020, 1040, 2100, 2110, 
2120, 2520, 3030, 3040 y 4500 a 4820, 
ambas inclusive. 

Por último, como ya sabemos, GES¬ 
TOCK controla concretamente las ope¬ 
raciones de almacén. 

FICHEROS DE SOPORTE DE LA 

CADENA ■■■■■■ 

* 

Para el almacenamiento de los datos 
necesarios para el correcto funciona¬ 
miento de la cadena, se utiliza un dis¬ 
kete aparte del de programas, aunque 
también puede utilizarse a este fin su 
cara B. 


Los ficheros tienen las característi¬ 
cas indicadas en la tabla adjunta. 


NOMBRE 

CAPAC. 

C0NTENI0O 

TIEMPO 

CREAC/REGEN 

TIPO 

id 

1 

Identific. 

0 

0 

Perd 

ame 

600 

Artículos 

0'64' 

0'39" 

) 

movtos 

7250 

Movimientos 

B'48" 

6'24" 

Temp 

puntero 

1 

- 

0 

0 

» 

índex 

600 

- 

0’2B" 

024" 

i 


Donde CAPAC. expresa su capaci¬ 
dad en unidades, TIPO si es perdurable 
o temporal respecto al proceso de re¬ 
generación y CREAC. y REGEN., los 
tiempos de creación y regeneración, 
respectivamente, de los ficheros. 
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ME 


FILOSOFIA GENERAL DEL 
SISTEMA 

Toda la cadena se gestiona median¬ 
te un sistema común de subrutinas co¬ 
merciales, denominadas «SUBAUX», 
cuya misión es estandarizar las comu¬ 
nicaciones con el usuario en todas las 
aplicaciones, a la vez que hacerlas más 
simples y cómodas en su manejo. 

Así, para las selecciones múltiples se 
ha adoptado un sistema de menús, que 
presenta todas las opciones simultá¬ 
neamente en la pantalla, de forma que 
con la pulsación de una sola tecla nu¬ 
mérica podamos elegir la opción ade¬ 
cuada. 

De modo similar, las tomas de datos 
más complejas son también efectua¬ 
das siempre mediante un mismo siste¬ 
ma, con la consiguiente simplificación 
del proceso de aprendizaje del progra¬ 
ma. 

Finalmente, el sistema de edición de 
mensajes para la comunicación al 
usuario de selección de opqiones sim¬ 
ples se encuentra simplificado y estan¬ 
darizado al máximo. 

Si ya disponemos de este programa, 
por haber implementado la aplicación 
GESBANC, bastará con que modifi¬ 
quemos la línea 8800, para adaptarlo a 
la nueva situación de ficheros. 


RUTINAS AUXILIARES 

— MENUS: Bajo el nombre de me¬ 
nús se conocen las presentaciones en 
pantalla de una serie de opciones, pre¬ 
cedidas por un número que las identifi¬ 
ca, entre las cuales el usuario debe se¬ 
leccionar una y sólo una de ellas. 

Simultáneamente, una vez finalizada 
la edición del menú, aparecerá el men¬ 
saje «ELIJA UNA OPCION», con el cual 
el sistema quiere darnos a entender 
que se encuentra preparado para reci¬ 
bir el dato, recordándonos la finalidad 
del menú. 

Simplemente deberemos pulsar la 
tecla numérica correspondiente a la 
opción que deseamos seleccionar, ya 
sea en el teclado numérico situado a la 
derecha de la consola, o en la fila supe¬ 
rior del bloque principal de teclas. 

En la parte superior del menú figura¬ 
rá el título del mismo, que nos servirá 
permanentemente para identificar la 


opción real que el programa nos plan¬ 
tea en cada momento. 

Como ejemplo, el menú que nos in¬ 
dica que nos encontramos en la opción 
de listado del fichero de bancos, en el 
cual se nos plantean tres posibilidades 
alternativas: efectuar su listado por la 
pantalla, por la impresora, o simple¬ 
mente retornar al menú anterior, a tra¬ 
vés del cual accedimos a este punto, 
sin efectuar la operación. 

Así, si pulsamos la tecla 1 («f 1», en el 
teclado numérico) seleccionaremos la 
opción de impresión por pantalla. Por 
otra parte, la entrada del dato es depu¬ 
rada por la rutina, de forma que sólo se 
aceptan las pulsaciones de teclas nu¬ 
méricas a las cuales el menú haya 
asignado alguna opción, esperando la 
rutina hasta la obtención de cualquier 
dato válido. 

- MENSAJES DEL SISTEMA: La 
línea inferior de la pantalla está siem¬ 
pre reservada para la comunicación 
del programa con el usuario. A través 
de ella se notifica la detección de erro¬ 
res, o se solicitan ciertos datos que por 
su simplicidad no precisan de un menú 
o de una toma de datos compleja. 

Asi por ejemplo, hemos visto como 
en el caso de los menús dicha línea se 
empleaba para hacer aparecer el men¬ 
saje «ELIJA UNA OPCION». 

Los mensajes editados pueden tener 
dos procedencias: el propio programa, 
o el sistema operativo de disco de 
Amstrad. 

En el primer caso, los mensajes apa¬ 
recerán centrados en la línea, en caste¬ 
llano y escritos en letras mayúsculas. 
Así mismo, pueden aparecer en modo 
parpadeante, en cuyo caso señalarán 
una cierta condición de error que preci¬ 
sa de la atención del usuario; o bien de 
modo estático, para indicarle la necesi¬ 
dad de realizar una determinada ac¬ 
ción, como es el caso ya mencionado 
del mensaje «ELIJA UNA OPCION» en 
la selección por-menús. 

Los mensajes cuya procedencia sea 
el programa siempre indicarán clara¬ 
mente la acción que se espera del 
usuario, como por ejemplo: 

PULSE UNA TECLA PARA CONTI¬ 
NUAR 

ELIJA UNA OPCION 

etc. 

O el tipo de error producido (mensa¬ 
jes parpadeantes): 


FECHA INCOHERENTE. PULSE UNA 
TECLA 

CLAVE NO EXISTENTE. PULSE UNA 
TECLA 

etc. 

En todo caso, los mensajes siempre 
detendrán la ejecución del programa 
en el que aparezcan, hasta que el ope¬ 
rario efectúe la acción req uerida por los 
mismos. 

En algunas ocasiones, el mensaje 
solicita la pulsación de determinada te¬ 
cla para confirmar la ejecución de una 
operación concreta. Así por ejemplo, 
tras una toma de datos podrá aparecer 
el mensaje «PULSE “V” PARA VALI¬ 
DAR». En este caso concreto, si los da¬ 
tos introducidos por nosotros fueran 
correctos, deberíamos pulsar la tecla 
«V», o cualquier otra en caso contrario, 
dándosenos así una última oportuni¬ 
dad de rectificar los datos introducidos 


cía i 
de 
aste 
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ma 

tañí 
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nes 
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me 
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E 
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/ 

í 
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prc 



antes de que sean tomados en cuenta 
por el programa. ¡nt 

En otras ocasiones, la pulsación re¬ 
querida por el mensaje no es de una es 

sola tecla, sino de dos simultáneamen¬ 
te. Esto se debe a que la acción a la sir 

cual dan paso entraña un riesgo espe- ad 

cial. Así por ejemplo, antes de dar de el 

baja una clave cualquiera de un fiche- te< 

ro, aparecerá el mensaje «PULSE 
“CONTROL B” PARA VALIDAR LA BA- 
JA». En este caso, deberemos accionar mi 

la tecla «CONTROL» (esquina inferior su 

izquierda del teclado) y manteniéndola 
presionada accionar la «B» tai 

Por último, la descripción del mensa- ex 

je puede incluir la acción de una tecla qi 

en particular. Así por ejemplo, antes de ta' 

cualquier listado por impresora apare- nc 

cerá el mensaje «PULSE UNA TECLA m 

PARA CONTINUAR (* -> SALIR)», indi- nc 

cando que la pulsación de cualquierte- pr 
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da implica la continuación de la acción 
de listado por impresora, salvo la de 
asterisco («*») que provocará el retorno 
al menú del cual procedemos. 

Los mensajes emitidos por el siste¬ 
ma operativo de disco, aparecen siem¬ 
pre a la izquierda de la línea de mensa- 
jes, en inglés y escritos en letras 
mayúsculas y minúsculas. Es impor¬ 
tante resaltar que si operamos escru¬ 
pulosamente, siguiendo las instruccio¬ 
nes del programa y este artículo, jamás 
deben aparecer los mencionados 
mensajes, aunque tampoco deben 
ocasionarnos ningún trastorno espe- 
cial. 

El mensaje del sistema operativo se¬ 
rá: 

Reíry, Ignore or Cancel? 

Antes de pulsar ninguna tecla debe¬ 
remos proceder a las siguientes com¬ 
probaciones: 



- ¿Se encuentra el disco apropiado 
introducido en la unidad? 

- ¿Está el disco protegido contra 
escritura? 

La solución al primer problema es 
simplemente la introducción del disco 
adecuado en la unidad de diskettes. En 
el segundo caso, deberemos despro¬ 
teger el disco. 

Una vez solventado el problema he¬ 
mos de pulsar la tecla «C», con lo q ue el 
mensaje del sistema operativo será 
sustituido por otro del programa. 

Sobre el manejo de discos es impor¬ 
tante destacar que NUNCA deberemos 
extraer o introducir discos en la unidad 
que no hayan sido previamente solici¬ 
tados por un mensaje del programa. De 
no respetar este consejo, nos arriesga¬ 
mos a la introducción de un disco erró¬ 
neo en un momento inadecuado, con la 
posible destrucción de la información 


10 REM CAOENA : GESTION 

20 ROI PROGRAMA ; IPL 

30 REM AUTOR JUAN BAUTISTA CUESTA 

40 REM FECHA INICIO: 05/05/86 

SO REM FECHA FIN . 01/11/66 

60 REM VERSION : 2 

100 LOAO“ale*lor b» n". Ii9COO: CALL &9C00 

110 MOOE 2:B0RDER 0:INK 0.0:INK 1.26 

120 FOR i=0 TO 6 STEF 6:I10VE i, i : DftAWR O 47-2*1 ORAUR 639-2*i, O: DRAWR O.-47*2*1 
DRAWR -639*2*1,0:N£KT 

130 FOR i=0 TO fe STEF' 6.MÜVE 1.365*1 DRAWR 0.4S-2*».DRAWR 639-2*1.0 DRAWR 0.-4S* 
2*líDRAWR -639*2*1.0 NEXT 

140 LOCATE 3.2:FRINT"GESTI0N Vil T M A ’ :LOCATE *9 2.FRINT‘IC> 19»+ TUAN BAU 

TISTA CllESTA 

ISO UINDGU #1.-3.76.2.2 

160 ÜINOOW 42.3.78.24.24 

170 WINOOW 40,1.60,6.21 

180 DIh a(I2> 

190 FOR 1=1 TO 12:READ alH¡NEXT 

200 OATA 31.29.31.30.31.30.31.31.30. 31. .«.31 

210 FOR i=l TO 13 

220 REAO z*.PQKE 39300+1 .VALi "I."+z» > 

230 NEXT 

240 OATA C0.2E.80.00.00.€£.00.DO.66.01.36.0I.C9 
250 LOCATE 28.4¡PRINT " JUAN BAUTISTA CUESTA " 

260 LOCATE 26.6:FRINT " CADENA GESTION 

270 LOCATE 28.8PRINT " TU MICRO AMSTRAO 

280 LOCATE 26.10.FRINT " 2a EOICION CCNORSO 

290 FOR i=0 TO 6 STEF 6 MGVE 200*1.160*1:DRAWR O.144-2*i.DRAWR 214-2*1.0:DRAWR O 
,-144*2*1 DRAWR -214*2*1.O:NEXT 
300 CHAIN MERGE”sub*u>'.310 

310 z*="FECHA: “ y*="zf=1S.zc=3?:zn=l zl=6:G0Si*; 6010 
320 GOSUB 8720.REM COMPROBACION FECHA 

330 IF z=0 THEN z*-'FECHA INCi TÍRENTE PULSE UNA TECLA":zn=l¡GOEXs SERA.GOTO 310 
340 f*«LEFT*<x*.2)+’ , /"+NlD*lz*.3.2)+"/'+RlGHT*<z».2J 
360 CHAIN M€R6€ oaunt". ORLETE 100-350 


10 REM CADENA GEST ION 

20 REM PROGRAMA OISC 

30 REM AUTOR JUAN BAUTISTA CUESTA 

40 REM FECHA INICIO' 03/05/66 

SO REM FECHA FIN : 01/07/tí. 

60 REM VERSION 1 

100 ON BREA* C0N1 

110 Pl>£ Íi80EE.1iC9:KEY DEF 66.0.0.0.0 

120 DN ERROR GOTO 3S0 

130 ¡BANPOPEN.O.END 

140 DN ERROR GOTO 360 

ISO ••=€>: SYMBOL AFTER 256 

160 ON ERROR' GOTO O 

170 MEMORY 39900:i»c enl r y=H I MEM- 1S: MEMORY wc*ntcy-l 
160 FOR p=«ncentry TO ncentry+15 
190 REAO p*:PO*t p. VALi "*."*r* • 

200 NEXT 

210 a*=O.CALL ncentry.Oat 

220 MEMORY «cent r y* 16 

230 ver sion= i a*\2S6 »+266*i aXMOO 26*. i 

240 IF version<1.102 THEN 430 

250 lucen! ry=HIMEM-l>624 

260 ON ERROR GOTO 400 

270 IF mcenlry»=S7FFF THEN ERROR 7 

280 MEMORY «reñir» I :LÜAO "banVnan bin" .nceniry 

ISO CALL ncentry 

300 ¡6ANK0FEN.0 

310 IF »a=0 THEN SYME'L AFTER 240 
320 RUN 'ipl 
330 ENO 

340 DATA E. FF.C0.16.B9.EE.OD.66.1.DD.tE.O.7 . 72,(9 

350 ' 1 1 rst IbanVopen error 

3€0 IF ERR-2'K AND ERL'ISO THEN RESUME 140 

370 GOTO 430 

2-8*i ' catch bad SVMKL AFiER cofwuand 

390 m=1 -RESUME NEXT 

400 ' error in miii prc-gra* 

410 CLOSEIN: MEMORY mcentry+i.524 
420 IF sa=0 THEN SvrGOL AFTER 240 
430 PRINI "Error de Caiga'' 

440 ENO 

VoOO REM AREA SI «RUTINAS DE GE-1 ION 
*010 REM SUBRUTINA DF TOMA Gf DATOS 

*U20 y*=LEFT*iy*+SfACt*izl < zlcLúCATi zc.zl P-RINT z*.y* " : ?c=zc*l EN* r* *: zp= 1 

LOCATE zc.zf 

£>»;«! FRINI (HR*> 22 >(HR*i 1 i" C HR*i 22 KHR*i O iCHR*i 6 i; 

2040 z*-INF.EV*: IF z*=" ' IHEN N>4» 

¿OSO IF ASÍ i z* i 127 AND 6«<i*i :I THEN 62 »• 

5060 IF z*.CHR*i242» ÚR ZP=1 THEN 809» 

4070 IF ZP<2l*l THEN FRINT MID*iy*. rp.1 i. 

6060 PRINT CHR*l22)CHR*(l»CHR«iSlCHR*< »“ "CHK*« 22>CHR*i O *CH«*l6 ) . . zp=zp- 1 :GOTO 
8040 

6090 IF z»->CHR»i243i OR zf zl THEN 61 f» 

6100 PRINT MIO*iy*.zp. 1•. 

6110 IF zp-zl THEN FRINT CHR«i 22KHR*. 1 i" "CHR*it:.. ELSE PRINT CHR*«9i; 

8120 PRINT CHR*> 22 »CHR*< O J::zp=zp*I GOTO -»40 
SI -O IF z*¡ /CHR*i 127 i DR zp- 1 IHEN 6170 

8140 IF zp-zl*l THEN FRINT HlO*iy*. zp.I> ,CHR*i 6»; ELSE FRINT CHR*i6>; 

BISO PRINT CHR*i él" _"CHR*i 6». zP=zp-l 

8160 y*="# ♦»*♦"•* yí’LEFTaiy*.ZP)+" "*RIGHr»iy» LENi y*i-zp- I > ; y*-MID*iy*. 2.LENi 

y* 1-2)¡GOTO 6040 

8170 IF z*•>CHR*i224> THEN 8200 

8160 IF zpr zl * 1 THEN FRINT MID*« y*.ZP, 1 1, 

8190 zp=zl*l ¡GOTO 8220 

8200 IF z*<>CHR*<12) THEN «040 

8210 IF zp.zl*l THEN PRINT ' 

8220 GOTO 64B0 

8230 IF z*<" " OR z*>“!“ THEN 8040 
8240 IF zpvz1 THEN €040 
8250 IF zn>0 THEN 829» 

8260 PRINT UFFER*iz*j; 

6270 IF zp<zl THEN PRINT CHR*i 22 »CHR*i 1 >''_"CHR»< 8 jCHR*« 22 »CHR*i O»; ELSE FRINT CH 


R»r 9 >; 

6280 GOTO 8460 

8290 IF zn>l THEN 8340 

8300 IF z*C"0" OR z*>" 9" THEN 6040 

8310 PRINT UPPER*(z*J, 

8320 IF zprzl THEN FRINT CHR*í22>CHRS«1 >"_ "CHR*«8*CHR*i 22 lCHR'*l O). ELSE FRINT CH 
R*< 9J. 

8330 GOTO 64SO 

8340 IF z*<"0" OR z«>"9'’ THEN 8380 
8360 PRINT UPPEFr*! z*>; 

B36(i IF zp<zl THEN FRINT CHR*i 22 iCHR*< 1 i-_ "CHR*« 8 KHRV 22lCHR*n.» ; ELSE FRINT CH 
R*<9>; 

8370 GOTO 84-60 


6380 IF z*='-" THEN 8410 
8390 IF z*=" " THEN €430 
8400 GOTO 8040 
8410 IF zp/1 THEN 8040 

8420 PRINT UPPEFr*< z» JCHR*i ¿2 .... 22 >CHR*■ O »CHR*i P J. GOTO 8460 

e430 IF INSTRCy*." "1/0 OR zp=zl THEN 8040 
8440 GOTO 8420 

8450 *,**■*■ y*=LEFT*« y*.zp>*UPBER*i z»J*RIGHT*. yí.LENi y*l-zp-l i.y*=MID*iy» 

. 2.LEN» y*l-2> :zp«zp*l .G<3T0 8040 

8460 IF zp=I THEN y*«"":GOTG 6480 

e470 y*=LEPT*< yS.zp-U 

8480 IF zn=0 THEN 8570 

8490 IF zn=2 THEN 8S2C> 

8S00 IF zp=l THEN y*»"0" 

8510 GOTO 8570 

8520 IF y*="" THEN y*="0 00" GOTO €*70 

8S30 IF LEFT*i y». 1!«./"-“ THEN y*=" “*y* 

8540 z=lNSTR<y*." ">. 1P z,0 THEN €*60 ELSE y*=y** ".z=LENiy*i 

8S50 y*=y**"ClO" : y*=LEFT*l y*. z*2>: IF MID*i y*. 2,1 >=" ’’ THEN y»=LEFT*l y*. I »+'’0*‘*RIG 
HT*<y*.LEN(y*1-1/ 

8560 IF LEFT*<y*.l,-- ■ THEN y*=RIGHT*ry*.LEN' y» »-li 

85^0 **=Y* : y*“y**SPACE*'zl*li¡LOCATE zt.zf PRINT y*:IF zn=2 THEN y*=LEFT*«z».LEN 
8560 RETUfiN 

6590 REM S'ÍRUTINA DE DENERACICN DE MENOS 

8600 CLS FOR i-O TO 6 STEF' 6 MOVE 1*101.1+273¡DRAWR O.45-2*i¡DRAWR 437-2*».O¡DRA 
UR O.-46+2*i DRAWR -437*2*».O'NEXT 

8610 FDR »=0 TO 6 STEF 6¡MOVE 1*101.1+83 DRAWR O.173-2*1¡DRAWR 437-2*i,O:DRAWR O 
.-173+2*»¡DRAWR -437*2*».O NEXT 

8620 LOCATE 40-LEN*•\2,3:FRINT z* LOCATE*2.32.1:FRINT*2."ELIJA UNA OPCION" 
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que se almacenará en el mismo, ya es¬ 
tuviera relacionado o no con la cadena 
en concreto. 

— TOMA DE DATOS: Para la entrada 
de información más compleja, tal como 
nombres de productos, saldos de 
cuentas, etc... la cadena dispone de una 
rutina de toma de datos específica, que 
depura la información de entrada, faci¬ 
litándonos así nuestro trabajo y dismi¬ 
nuyendo en lo posible el riesgo de 
equivocaciones. 

La primera característica de la rutina 
es que precede todas las entradas de 
un título que indica la información que 
se solicita. Por ejemplo, CLAVE, ASIEN¬ 
TO, DESCRIPCION, etc. 

A continuación del título se encuen¬ 
tra el espacio destinado a la escritura 
de la información requerida, delimitado 
por la izquierda por el título del campo, 
y por la derecha por una punta de fle¬ 
cha. Así por ejemplo, la toma de una 
descripción de treinta caracteres de 
longitud podría presentar este aspecto: 

DESCRIPCION:_ < 

Como podemos observar, aparece 
un guión de subrayado en la primera 
posición del campo (información a in¬ 
troducir). Esto es lo que denominamos 
cursor, y sirve para informarnos sobre 
cuál es la posición dentro del campo 
por el cual vamos escribiendo. 

Así, tras la introducción de parte del 
campo, por ejemplo, «COMPRA DE 3 
DISKET», su aspecto seria el siguiente: 

DESCRIPCION:COMPRA DE 3 DIS- 
KET_ < 

Dentro de las depuraciones que la 
rutina efectúa de forma automática, se 
cuenta el tipo de teclas que debe tomar 
en consideración según la naturaleza 
del campo. Así, podemos considerar 
tres tipos de tomas de datos: alfanumé- 
ricas, numéricas y numéricas decima¬ 
les. 

En la primera de ellas, se aceptan to¬ 
do tipo de caracteres: numéricos o alfa¬ 
béticos, incluidos signos de puntua¬ 
ción u otros símbolos. Campos de este 
tipo son los nombres, descripciones, 
etc. 

Las tomas numéricas admiten tan 
sólo la pulsación de números, sin nin¬ 
gún tipo de signo de puntuación o arit¬ 
mético, símbolos o cualquier carácter 
alfabético Tal es el caso de las fechas, 
claves, etc. 

Por ultimo, los campos numéricos 
decimales admiten la pulsación de 


cualquier tecla numérica y el punto de¬ 
cimal («.»). 

Para la modificación de lo escrito en 
cualquier campo disponemos de tres 
teclas de edición: el retroceso de cur¬ 
sor, el avance del mismo y el borrado 
del carácter anterior a la posición del 
cursor, con retroceso del mismo. 

El retroceso del cursor se asigna a la 
tecla inferior izquierda del teclado nu¬ 
mérico independiente (<—). El avance 
de cursor está localizado en la tecla in¬ 
ferior derecha del mismo teclado (—» 
y el borrado de carácter se consigue 
mediante la pulsación de la tecla «<— 
BORR», situada en la esquina superior 
derecha del bloque principal de teclas 
(a la izquierda de la tecla «f7»). 

Una vez correcta la información que 
deseamos asignar al campo podemos 
abandonar el mismo de dos formas di¬ 
ferentes: dando por válido el contenido 
del campo completo, sin tener en cuen¬ 
ta la posición en que se encontrará el 
cursor, o bien introduciendo única¬ 
mente el contenido del campo hasta la 
posición anterior al cursor, desprecian¬ 
do toda la información que se encon¬ 
trará entre éste y el final del campo. 

El primer tipo de abandono del cam¬ 
po se consigue mediante la pulsación 
de la tecla «COPIA», situada en la zona 
izquierda de la última fila del teclado 
principal, entre la tecla «CONTROL» y 
la barra espadadora. El segundo tipo 
de validación del campo se obtiene 
con «RETURN» o «INTRO», situadas 
ambas en la columna derecha del blo¬ 
que principal del teclado, a la izquierda 
de las teclas «<—» y «f 1» y «f4», respec¬ 
tivamente. 

Si tomamos como ejemplo el si¬ 
guiente campo: 

DESCRlPCION:COMPRA DE 3 DIS- 
KETTES_ < 

Dada la posición del cursor, la infor¬ 
mación obtenida por el programa si 
pulsamos «COPIA» será: «COMPRA 
DE 3 DISKETTES», mientras que si pul¬ 
sáramos «RETURN» o «INTRO», sería 
únicamente: «COMPRA DE 3». 

Una vez abandonado el campo, éste 
adoptará la forma de la información in¬ 
troducida según hayamos pulsado 
«COPIA», «RETURN» o «INTRO», desa¬ 
parecerá el cursor del mismo y la punta 
de flecha que delimita su longitud, apa¬ 
reciendo estos dos últimos elementos 
de edición en el próximo campo a in¬ 
troducir, si lo hubiera. 


Si 


En ocasiones, el campo en vez üt* 
aparecer imcialmente en blanco, con¬ 
tiene un valor previo que se escribe al 
mismo tiempo que el titulo, facilitando 
la validación del campo medíante 
«COPIA» o su modificación. 

Por otra parte, hay que añadir que 
por motivos estéticos los caracteres al¬ 
fabéticos serán representados siempre 
en mayúsculas, haciendo notar que la 
letra eñe no se acepta por incompati¬ 
bilidad con la impresora, aunque si po¬ 
drá ser representada en la misma si se 
sustituye en la pantalla por el carácter 
barra invertida (« \ »), situado a la iz¬ 
quierda del «MAYS» derecho, en el blo¬ 
que principal de teclas. 

PUESTA EN MARCHA DE LA 
CADENA ■■■■■i 

Introduzcamos el diskete de progra¬ 
mas de la cadena en su unidad y escri¬ 
bamos: run"disc 

Tras un breve espacio de tiempo de 
operación con la unidad de disco, 
aparecerá la pantalla de presentación 
de la cadena. Nos encontramos en este 
momento bajo el programa inicial de 
GESTION, que no será accedido nue¬ 
vamente hasta que se vuelva a conec¬ 
tar el equipo, tras abandonar la cadena. 

El programa quedará a la espera de 
la introducción de la fecha de proceso, 
la cual será empleada como valor por 
defecto en los listados extraídos por las 
distintas aplicaciones. Esta fecha, co¬ 
mo todas las que se solicitan a lo largo 
de la cadena, deberán introducirse en 
forma de día-mes-año, asignando dos 
dígitos a cada cifra, completando con 
un cero por la izquierda aquellas de 
uno solo, y tomando sólo los dos últi¬ 
mos dígitos del año. Así, la fecha siem¬ 
pre será una serie de números formada 
por seis dígitos He aquí algunos ejem¬ 
plos: 

31 de diciembre de 1985—> 311285 
9 de octubre de 1985 —> 091085 

20 de enero de 1984 —> 200184 

7 de abril de 1986 —> 070486 

El programa se encargará de depu¬ 
rar la corrección de las fechas, contro¬ 
lando los posibles errores como días 
superiores a los correspondientes a un 
mes, hasta incluso la comprobación de 
la fecha 29 de febrero en los anos no bi 
siestas. Hasta que una fecha correcta 
no sea introducida el programa no pa- 
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sara a la siguiente fase, emitiendo el 
mensaje de error «FECHA INCOHE¬ 
RENTE PULSE UNA TECLA». 

Una vez introducida una fecha co¬ 
rrecta, la unidad de disco entrará de 
nuevo en funcionamiento, dando paso 
a la aplicación de enlace «GESINT», 
que será objeto de estudio en el próxi¬ 
mo apartado. 


APLICACION «GESINT» MHi 

El objetivo de la aplicación «GE¬ 
SINT» es fundamentalmente de enlace 
de la cadena GESTION, y siempre se 
pasa a través de ella para acceder a las 
diferentes aplicaciones de la misma, 
así como para abandonarla definitiva¬ 
mente al final de una jornada de traba¬ 
jo. Este último detalle es muy importan¬ 
te: NUNCA debemos desconectar el 
equipo sin haber pasado previamente 
por la opción de SALIDA DE PROGRA¬ 
MA que figura como séptima en el me¬ 
nú principal de entrada a la aplicación 
«GESINT». 

Además de la misión de encadena¬ 
miento y de la opción de salida de pro¬ 
grama, «GESINT» incorpora otra posi¬ 
bilidad en el punto 3 de su menú princi¬ 
pal: la regeneración de ficheros, que 
será estudiada en profundidad más 
adelante. 

El menú principal de la aplicación 
permite el acceso a las diferentes apli¬ 
caciones de la cadena en sus dos pri¬ 
meras opciones. Su elección nos lleva¬ 
rá directamente a la carga, aparecien¬ 
do en la linea de mensajes la adverten¬ 
cia: «CARGANDO LA APLICACION 
GESBANC» o «CARGANDO LA APLI¬ 
CACION GESTOCK». Obviamente, no 
» deberemos seleccionar la primera op¬ 
ción, si no hemos introducido el listado 
correspondiente a la aplicación de 
gestión bancaria. 

En caso de que previamente hubié¬ 
ramos escogido la opción de regene¬ 
ración de ficheros, y en la unidad de 
disketes se encontrará alguno distinto 
al de programas, el hecho sería adverti¬ 
do por el programa mediante el men¬ 
saje «INTRODUZCA EL DISCO DE 
PROGRAMAS Y PULSE UNA TECLA». 


REGENERACION DE FICHEROS 

Esta opción nos permite la regenera- 


FULSE UNA TECLA' : 


¡Jf? NEXT*" 1 T ° * 1:L0CATE ¿5-6**:PRINT RIGHTt. STRt(z) ,LENiSTRt< z) >-l >- - - n tiz*X 

eeeo roí subrutina de edición de mensa íes 

6670 CLEAR INPUT:zc=40-LEN<zt>\2 
LOCATE»: .zc .1 PRINT»2.zt 
6690 FOR z=0 TO 499.NEXT 

™ ^ÍS^,S S íhSI!^ ™ ~° 1,5 M:NEIIr60,0 8680 

8730 2-0: IF LEN‘ zt,. .-6 THEN RETURN 

6770 z=l:FíETUFiN 

676o REM SUBRUTINA DE CúMFROtAC ION DE DISCO 

879o RESTORE SSuO:FOR i-l TO disco REAO dt NtXt 

b&UO DATA PROGRAMAS. BANCOS ALMACEN 

8SI0 WINOOU SWAP 0.2 

¿620 C«N ERROR GOTO t&4v 

8830 OPENIN- na 

6640 IF DERR-M6 THtN SEFu 

68S0 CLS UINDOU S-UAF 0,: ?*= INTRC4x.CC A f 1 DISCO DÉ i 
-O: GO iUe Sm-i, - RESUME -33 lu 

6660 CLS’WlNDOW SVAf v. -. 

8870 at="id": :0PEN.i»at,2,3. t 
6880 x»=" •' ¡REAO. <Kt, 1.2 

teSH.' IF LEFTSi v t.1>. RlGHTtc STR»I disco 1 .1 I THtN ;CLÜSE. : :WINDÚU 


10 REM CADENA GESTION 

20 REM PROGRAMA GESINT 

30 REM AUTOR «DAN BAUTISTA CUESTA 

40 REM FECHA INICIO: OS /OS/ 66 

50 REM FECHA FIN 01/11/B>- 

50 REM VERSIC* 

70 REM IN1CIALIZACIONES 

80 REM CARGA DE LAS SI «RUTINAS AUXILIARES 
90 REM CARGA OE DATAS TARA MENOS 

100 DIM »•(12) 

110 RESTORE:FCR i=I TO 12:REAO **ui NEXT 
120 CLS»2 

130 REM MENU PRINCIPAL GESINT 

ÍÍS SS5 DE FItHEFC'E. EALlDft Dt HMMm 

150 DATA GESBANC,GESTOCK 

160 REM MENU PRINCIPAL REGENERACION DE FICHEROS 

!Ja REGENERACION PARCIAL.RE6ENERACICN COMPLETA.RETORNO AL MENU PRINCIPAL 

DATA PICHERO^ DE BANCuv.FICHEROS DE ALMACEN.RETCfttt MENU REGENERACION FICHER 

SOO REM CARGA DE TABLAS FARA REGENERACION 

510 OATA BANCOS.9,96. "H".MOVTOS.26S1.63." - .FUNTERO, 1. 4. " I". INOEX .9 4 " " 

SoSffiÍRf!c:loo:l¡' : "• wntero - 1 .«¿.r. índex. «*.4 8 - 

1000 REM AREA DE FROGRAMA 

1010 r*-"APLICACION GESINT-;zl=4:zn=i:G0SU8 6590 op=z 
1020 IF *>2 THEN 1040 

1030 di«co=l :GÜSUB 6760. ERASE »t RESTORE 150: FOR i=l Tu op .REAO ni NEXT:LOCATE a 

2,25,l PRINTa:.'CARGANDO LA APLICACIC* "nt 

J040 ÜN op GOTO 2000, 2100. 2500.2600 

2000 REM ENTRAOA A LA AFLÍC ACION GESBANC 

2010 CLS 

2020 CHAIN MER6E"ge«ban c "..DELETE 10-7010 
2100 REM ENTRAOA A LA APLICACION GESTOCK 
2110 CLS 

2120 CHAIN MER6E"9#«tocF*,.OELETE 10-7010 
2500 REM REGENERACION OE FICHEROS 
2510 REM AREA OE FROGRAMA 

••--UCCÍMCRACION oc FIOCNW* *l .' zr--7 GOSUD ^S9<> * 

2530 ON op GOTO 3000.3000.3200 
2600 REM SALIDA OE FROGRAMA 
2610 CLS 

2620 PRINT#2, TAE¡( 25>“F 1 N DE TRABAJO” 

2630 LOCATE 24.9PRINT'EXTRAIGA EL DISCO DE SU UNIOAO Y" 

2640 LOCATE 29.11 :PRINT' DESCONECTE El EúUIFO " 

26S0 GOTO 2660 

3000 REM MENU OE REGENERACION COMUN TOTAL/PARC1AL 

THEN z*-''R E GENERA c| .3N PARCIAL DE LOS FICHEROS" :opt="PARCIAL" ELSE * 
•* REGENERACION TOTAL OE LOS FICHEROS' :CP*-"TOTAL" 

3030 zl=3:Zn*10.GOSUB 8590:fic=z 

3040 DN lie GOTO 4000.4500,7000 

3200 REM RETORNO AL MENO PRINCIPAL GESINI 

3210 GOTO 1000 

3500 REM REGENERACION OE TODOS LOS FICHEROS 
4000 REM REGENERACION OE BANCOS 

£ “"fi**** 1 R EGENERACICW •♦op*»*' DE FICHEROS BANCOS":zn=0'G06 
Ud oooU Ir 2l THEN 3000 

4020 CLS:RESTCiRE S10 REAO •*. nr . 1 r :GCHU6 6120'REM INTERPRETA Ct 
4030 IF op=2 THEN 4060 

DI6CÜ BANCOS FULSE UNA TECLA":zn=0 6fnlft fF#=0 
4050 CLS.RECTORE 5|O:03SUB 6060:REM VUELCA MAESTRO EN BAÑEHAN 

*&£^z*="lNyROO(IZtA EL NUEVO DISCO DE DATOS 'BANCO 1 -' FIASE UNA TECLA" :zn=O.MSU 

cio D ° W . S ' W ? f U j£l :ERA, “* *" :W1 *bÚV SWAP 0.2.CLS»2 : BAÑE OREN, 96 
í í»'2l-S» l í| T nif¿S£2 ,JU ! 31-LEN.»»,/2.9:PRINT "CREANDO EL FICHERO 

6 •* « : «»-32-CLD«STR»rnr>i-lJ/2íL0CATE col. 1 1 FRINT ‘REGISTRO NCW1ERD ' iol=col*l 

4090 FOR j«l TO nr : LCC ATE col.11 FRINT RIGHTti «.TRINGAi LEN< STR$i nr , *-l "O" i*MID*i 
í »E’» í i). 2 J . LE Ni STRli nr 11 -1 1 

c¿ 0 °»-'í I í2ISo , ^ A í.f*' lr-2t IF í-l AND GP=? THEN rX=u. ,'BANEWM TE . OrX. c*. IF rX.O TH 
41I0 *ÑexT R 0R K R£&ENERAC,¿iN UNA TECLA" zn=l.G0SU6 6660: GOTO 1000 

4120 READ at.nr.lr.GOSUB 612UCL0SE0UT NEXT 

4130 REST'DRE 510 GOSUB 600‘j:R£M VUELCA MAESTRO BAÑE MAN EN DISCO 
4140 ECR i-4 TO t CLS:REAO a». nr.Ir’GO-uE' 6120 

4 | S0:°PENi»**,,l r .J L'XATF 26-LENi **>/j . 9 FRINT "REGENERAClUN DEL FICHERO "a» 
í?^^ LEN : S I R *‘ n V- , ;i* /¿:LC,CftTE to1 U fKINI REGI -TRO NUMERO ". col =col+16 
4Ibu FOR 1*1 TO nr. LutATE col.11 PRINT RIGHTti STR1NG4» l ENi STR»' nr j » -1 "O" »+MIO*t 


TR4( ji. 2 >, LENiBTRV 
4170 ¡WRITE.Oc*. j,i 
4160 NEXT j.i 
4190 !CLQ3E 

4200 ap=l IF op=2 THEN 42.0 

^J^, £LS -LOCATE 26 s. FRINT' GENERANDu MOVIMIENTu Dt AJUSTE" col-31-i LEN«6TR*«nr i 
l » , ír¿2?'I E - eol ; ,, ' F * t,wr ,M ÜVI MIENTO NUMERO : rol-coIalS ..»=SPACF*<96 > a»="ban 
a>íc: : UFEN.>>a4.4. 6?. 1 :a»="inda- ' :>>EN.8a*,6.4.1 

4215 FOR i = l TO 9 .REAO.i»-* i.-: IF LEFTai 95)=SPACE»i 95» THEN 4270 

1."O" i*MID»< STRfiapi. 2».LE 


4220 LOCATE col 11 FRINT RIGHTti STRINGt' LEN< e -TR5' 
N<STR*«nr i» 1 > st*RIGHTt< ■*. 10 , 

'TR'* 1 • *. = . I '•»' 4411 «lEFTti f».:-.«HIDfi <t.4. 


♦RIGHTti *t.; I*"4 ‘ : -ALDO 


THtN .ti xpt*LEFTtist 9. 


E L-4 at t ■«tt*--EAC Eti 


IWRITE "I t i 


» *p=at-*I 


t llFTt-MIDt'-TR».i 


♦sFACEti 4 ■.. . 


WRlTt 


INICIAL REGENERACION % 

4240 IF RIGHTtist.1*="D" 

9J*LEFTtist.9, 

4í5u apt=át't*MIDti ap-t.E-.4 • 

426*/ :wR'ITE.i*aFt.ap 4.lt="l 
4270 NEXT 'CLuif 
4260 *t='puntero :ftfEN Oát ' 

Oxt.1.5-¡CLOSE 

429i cTic=0 |F t,c=S THEN tfi • • 

4300 G0SU8 6I9U REM GRABA IO 
4310 IF c 4 ir .. THtN íic= l 
4320 IF fie 5 THtN 3m«> 

4ÍOf. REM REGENERACION DE -Tu, i 
4510 zt*" CONTROL C CC'Nt 1RMAK REGENERACION 
SUB 8660:IF zt THEN 3UO0 
4520 CLS.R'ESTfiRt 5-0 READ »t Ir &fr-»lf. 61.' 

4530 IF op-2 TrCN 4560 

4540 Zt="INTRODUZCA EL DISCO 'ALMACEN' PULSE UNA TECLA":._ _ 

4.SS° CLS:RESTORE 520 GOSUB 6060:pt=SPACEt(12 > xt="puntero"::OPEN,8x4.5.12,1::REA 
0,8pt,1,5:-CLOSE-pt=RlGHTt<pt.£>:REH VUELCA MAESTRO EN BANKHAN 

UB%fo"" EL WUEV0 0, ^ C0 M 0AT,I>S 'ALMACEN' PULSE UNA TECLA" zn-0 GOS 
4570 VINDOV SVAF 0,2'¡ERA. "4 4-.UIND0W SWAP u,2 CLS»2. ,'BANK UFEN. 61 
4 5 e 2. FOR l “> T 'j 4'0PENGUT at:CLS LOCATE 31-LENiatl/2.9 PRINT "CREANOO EL FICHERO 
•I1/2-LOCATE col.11 PRINT "REGISTRO NUMERO “:col*COl+l 


Dt F ICHtRCr. Ai MACEN" zn*0. GO 


■ RUI INTERPRETA C 


i=0 GÜSUE 8660 


" at' col =32- < LEN< STRtc ni 


4590 FCR j-l TO nr LOCATE col, 11: FRINT RIGHTt* STR'IN&t' LENi STRti nr i i-l "O*' J+M10t< 
STRfij ¡,2> .LENiSTRtinr,>-|/ 

í^°SL F ’Í : JLÍ!ÍI^ ACE * 1 «“l AND op*2 THEN rX=0: 16ANKWRITE.«rX,ct: IF r*<0 TH 

EN zt="ERRi* DE REGENERACION PULSE UNA TECLA":zn«l GO i 6 8660:6010 1000 
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4610 NEXT 

4620 REAO **.nr.lr iGCTitt; 6l2Ci:CLO$.EOUT:NEXT 

4630 RESTORE 520 60SU6 6000 REM VUELCA MAESTRO BANRMAN EN DISCO 
4640 FOR 1=4 TO 6:C-LS- READ »*.nr,lr GOSUB 6120 

4660 ¡OREN,8*4, i . 1 r, 1: LOCATE 26-LEN* •*J/2.9:PRINT "REGENERACION OEL FICHERO "»• 
eol=32-i LEN(STR*< nr i i-l>/2: LOCATE col.11 PRINT "REGISTRO NUMERO " :eol*eoI+I6 
4660 FOR g = l TO rtr:LOCATE col,11 PRINT RIGHT4*STRING*<LEN«STR*< nr»J-l."O” >*MIDV 
STR*« j) ,2>,LEN<£TR*< nr>)-l > 

4670 ¡URITE.8C». j,i 
4680 NEXT |.i 
4690 ¡CLOSE 

4700 »P-1: IF of>*2 TREN 4760 

4710 CLS:LOCATE 25. 9: F R I NT"6ENERAN00 MOVIMIENTOS DE AJUSTE" col-31-<LENlSTR*Cnr> 
>-l*/2.LOCATE col. 11 PRINT “MOVIMIENTO NUMERO ” . col«COl-*18¡ x*=SPACE4<6l > 
ic* I OREN.®»*, 3,61.1 a«= ,- *»ovlo* - ': ¡0PEN.8«*.4, 19,1 :«*=' índe*'': ¡OREN.8«*.6,4, 1 
471S FOR i=l TO 500:¡REA0.8x».i,3:IF x4=SPACE»*61 > THEN 4770 

4720 LOCATE col.ll;PRINT RlGHT»< STRIN64* LEN<STR4t nr M-l,”0“ >*MID*1STR*i»pi,2J .LE 
N< STR*< nr > ) - 1 > «*=RIGHT*( x*. 5 > : ■•=LEFT*CMID»«STR4 < VAL«••) >. 2 > ♦SPACE*(S ».Sí 
4730 •p»=MI O* < STR6Í l > ♦SPACE»l 31,2.3 >♦" ***«A~ ♦*»+LÉF T»i f *. 2 > *MI D» i í *, 4. 2 1 +F¡ 1 GHT*( 
f*,2) 

4760 ¡tlRITE.8ap*.»P.4 !>•■"! - ¡BRlTE.8k*,i,6:»P*aP*l 

4770 NEXT:¡CLOSE „ 

4780 ••■‘puntero”: :0FEN.®*4.5. 12. 1 ,x»H.EH*<MIO*< STR»i »pg*6F - ACE*i 4 i. 2> .4 i+P* MJR 
ITE,0x4 .1.5 ¡CLOSE 

4790 clic=0: IF <ic=5 THEN elic-«ic: fic=2 

4800 GOSUB 6190:REM GRASA ID 

4810 IF cfic<>0 THEN fic=6 

4820 IF i ic<>5 THEN 3000 

6000 REM VUELCA MAESTRO EíANFMAN EN DISCO 

6010 REAO ••.nr.lr GOSLfi 6120 LOCATE 28-LEN*a» >/¿, 9:PRINT "REGENERACION OEL MAEb 
TRO ”a*:col=3¿-<LEN<STR*< nriJ-l1/2 ¡LOCATE col. 11 :FR1NT "REGISTRO NUMERO ’' tol=CC 

6020 ¡BANKCPEN. Ir : ¡ CiPEN. 8a*. 3. Ir. 1 :FOR í’l TO nr : rX=U: LOCATE col. II :FRINT RIGH»» 
<$TRING*(LEN<STR*(nrU-l ."0" >+MID*<STR*< i >.2> ,LEN«STR*l nr))-l> 

6030 ¡BANFREA0.8r*,c*:.URITE.8C*. i.3:IP r*:0 THEN z*-“ERROR DE REGENERACION PUL 

SE UNA TECLA":zn=l GOSUB 8660 GOTO 1000 

6040 NEXT 

6050 ¡CLOSE: RETURN 

6060 REM VUELCA MAESTRO DE DISCO EN 8ANCHAN 

6070 REAO •*.nr.Ir¡GOSUB 6120¡LOCATE 28-LENia*>/2.9 - PRINT "CONSERVACION DEL MAEb 
TRO "a* col =3*-lLENt STR'*<nr »1-1 )/2 LOCATE col. 11. PRINT “REGISTRO NUMERO " col-co 

6080 ¡BANKOFEN.lr lCiF'EN.6a». J, Ir. 1 FOR 1=1 TO nr r*=0:L0CATE col. II PRINT FíIGHT* 
< STR1NG*< LEN< STR*l nr ) >-1. "O” I «MIO»' STR»l l >. 2> .LEN* STR*« nr 1 ) - 1 > 

6090 :REA0,8i*.i .3: ¡BANKURITE.8rt.c*. IF rX O THEN z»-'ERROR DE REGENERACION FUL 
SE UNA TECLA - :zn=l: GOSUB 866*J - .G0T0 1000 
6100 NEXT 

6110 ¡ CLOSE. RETURN 

6120 REM INTERPRETACION DE C* 

6130 REAO ct 

6140 IF c»=”H- THEN c*=SFACE*< I r-1 )*r » 

6IS0 IF c«="l' THEN c*=c**SPACE»f lr-l' 

€160 IF c*=” " THEN c*=¿FACE*Uri 

6170 IF c*="0” THEN c»=STRING*i Ir .CHR** O»» 

6160 RETURN 
6190 REM GRABA ID 
6200 a»=”id“ OFENOUT a* 

6210 PRINT89.SFACE*i I i U.O'fOUT 
6220 ¡OREN.8a». 2.i.1. -••MIO»'STRS< *ic *1■*" 

6230 RE TURN 

7i*H< REM RETiRN- Al MENU REGENERACION DE FICHERO 
7010 GOTO 2S2o 


URITE.8-*.l.í.¡CLCÍC 


10 REM CADENA GESTION 

20 REM PROGRAMA GESTOCF 

V» REM AUTCR «IAN BAUTISTA CUENTA 

40 REM FECHA INICIO 01/06/86 

50 REM FECHA FIN *.>1/11/66 

60 REM VERSION 1 

100 REM INICIALIZAÍIÚNfc- 

120 II o=0 

130 CL*»2 

300 REM CARGA DE DATAS FAfcA MENU: 

310 DIN »*< 22 i 

320 RESTÍRE FOR i=l Tú REAO mV . . NEXT 
400 REM MENU FR1NC IPAl GESTOCF 

410 DATA GESTION DEl FICHERO DE ARTICULOS.GE6TIC44 DE MOVIMIENTOS .RETORNO AL MENU 
PRINCIFAL 

42l* REM MENU GE TION DtL FlCHERu DE ARTICULO? 

430 DATA INFORME. INTRODUCCION. MOOIFICACKM.BAJA C6M6ULTA. LISTADO, RETORNO AL MENU 
PRINCIPAL GESTOCF 

440 REM MENU LISTADO DEL FICHERO DE ARTICULOS 

450 DATA LISTAOO P'jR PAN TALLA. LISTAOÚ POR IMPRESORA. RE TORNO AL MENU GESTION ART I 
CULOS 

46u DATA LISTADO FOR FANTALLA.Ll-TADO FvR INFRESORA RETCANC’ AL MENU GESTION Mí'Vl 
MIENTO. 

470 DATA TOTAL t<£ ARTICULn-- GRUFO DE ARTICULOS.RETORNO AL MENU GESTlCN MOVIMIENT 

48C> OATA LISTAD*:- ft*R F ANTALLA. LISTADO POR IMF REDORA REKiRNO AL MENU INFORME DE 5 
TOCX 

lCKKi REM AREA DE FROGRAMA 

1010 z»-'APLICACION GESTXK. :zl = 3:zn=l GOSUB 8S90 op=z 

1020 IF z<>3 ÍV»D Ilo=0 THEN di*co=3:GOSUB B78u: a*= art ic '': ¡OREN.«a». 3.61. 1 a»=> 
ovio»*:¡0PEN.8a*.4.19.1 ••■"puntero”-¡OPEN 8*». 5,12, 1 »t-”ind«x' ¡0PEN.8»* 6.4.1 
lf£.= l 

1030 ON op GOTO *000. 2oOU.4»UU 

2*>X) REM GESTION DtL FICHERO OE ARTICULOS 

2010 z* 1 "GESTION DEl FICHERO DE ARTICULOS zl=t:zn=S G051HS B590 
2020 *3N z GOTO 2100. 2200.2300. 24»m. you, 29*>J 
2100 REM 1NTROX1CCION 
21 10 op=l 

2120 GOSUB 2500 IF VAL(z* 1=0 THEN 4000 

2130 GOTO 2100 

2200 REM MOOIFICACIC* 

2210 op=2 

2220 GOSLe 2500 IF VALtz»'=0 THEN 2000 
2230 GOTO 22*» 

2300 REM BAJA 
2310 op=3 

2320 G0SU8 25<K':IF VAL«z»>=0 THEN 2uOÚ 

2330 z*="PULSE 'CONTRiX 8 - PARA VALIDAR LA 8AJA" - zn=0 GOSUB 8660 IF z»v THEN 
2300 

2340 >*=5PACE*i61< .WRITE. 0<*. i 
2350 GOTO 2300 
2400 REM CONSULTA 
2410 op«4 

2420 G0SU8 2500:IF VALlz*>=0 THEN 2000 

2430 Z4--PXSE UNA TECLA PARA CONTINUAR - zn=0:GOSUB 8660 
2440 GOTO 2400 

2500 REM INTRODUCCION. MOOIFICAÍ ION BAJA h CCNSULTA 

25^0 z»="ARTICXO '• zl-3.GOSUB 5*>10 IF VAUz*)-0 THEN RETURN REM TOMA CLAVE DE A 

2S20°IF VALIz«í>500 THEN z«= ARTICXO FUERA DE MARGENES PULSE UNA TECLA" zn=l:G 
0SU8 8660.GOTO 2S00 ^ _ ,, 

2530 zl=61 :a»="*rtic" :nf=3:GOSU6 5050 REM COMPROBACION ARTICXÜ/MOVIHIENTO 


cíon de cualquiera de los disketes de 
ficheros. Dicha operación debe efec¬ 
tuarse cuando con el paso del tiempo, 
alguno o todos éstos se hayan llenado 
de datos, o bien, cuando por fin de un 
período determinado, por ejemplo un 
año, deseemos conservar la informa¬ 
ción de disketes separados. 

Dispone de un menú previo en el 
cual se nos da a elegir entre la regene¬ 
ración parcial, la completa, o bien el re¬ 
torno al menú principal de «GESINT», 
para el caso en que hubiéramos selec¬ 
cionado la opción de regeneración por 
equivocación. 

Al seleccionar la regeneración par¬ 
cial, los datos de los ficheros que la ca¬ 
dena considera perdurables, son trans¬ 
feridos al nuevo diskete. para evitar 
que tengamos que volver a introducir¬ 
los, y sólo se procede al borrado de lo 
que se denominan ficheros tempora¬ 
les, típicamente los de movimientos, 
generándose incluso apuntes de ajus¬ 
te en los ficheros maestros. 

En el caso de la regeneración total, 
se borran por completo todos los fiche¬ 
ros, no generándose ningún tipo de 
apunte. Esto nos permitiría, por ejem¬ 
plo, disponer de dos discos para dos 
supuestos centros de trabajo que qui¬ 
siéramos gestionar de forma comple¬ 
tamente independiente. 

Una vez escogido el tipo de regene¬ 
ración, tendremos acceso a otro menú, 
gracias a cuya última opción («RETOR¬ 
NO MENU REGENERACION FICHE¬ 
ROS»), podremos aún volver atrás, en 
el caso de que nos hubiéramos con¬ 
fundido en el tipo de regeneración es¬ 
cogida. 

La Linea de mensajes nos irá infor¬ 
mando de los disketes que debemos 
introducir en cada momento del proce¬ 
so de regeneración, durante el cual la 
pantalla se verá ocupada por una serie 
de contadores que irán avanzando se¬ 
gún se vaya completando, informando 
sobre que fichero se está tratando en 
cada caso. 

En la descripción de ficheros del co¬ 
mienzo de este articulo, se expone toda 
la información referente a la capacidad 
y nombre de cada uno de ellos, lo cual 
nos permitirá comprender los datos ex¬ 
puestos en la pantalla en el momento 
de la regeneración 


OBJETIVO DE LA APLICACION 

Esta aplicación controla todo lo rela¬ 
cionado con la gestión de almacén me¬ 
diante dos ficheros: fichero de artícu¬ 
los, conteniendo las descripciones y 
otros datos relativos a los productos y 


fichero de movimientos, en el cual se 
van almacenando las alteraciones de 
las existencias en almacén de los pro¬ 
ductos. 

El menú principal nos da acceso a 
una opción de retorno a «GESINT» (7), 
previa petición de confirmación me- 


















ruM/cfío 

SED AMSTRAD 


:-I THEN in=| : z4=”ARTICUL0 VA EXISTENTE PULSE UNA TECLA":GOSU© 


2SS6 k4=Sf>ACE4<4>::REA0,*fc4,VALlz4> ,6: IF VAL<k4)v>0 ANO op- 3 THEN z4=">EXISTEN M 
OVIMIENTOS' CLAVE DE ARTICA.O NO DISPONIBLE PULSE UNA TECLA-: Z n=l:GÜSUB 9060:GO 
TO 2S00 

IF „ í*"* 1 THEN c«VAL<z») :FC* i = l TO 6. l4<i »="": NEXT G0SU6 5120 REM PRESENTAC 
ION DATOS ARTICULO 2* 

2S70 IF oa>I TtCN c=VAL<z4>:x6=5PACE4<fel>.:REA0.*>4,c,3:p*l:RESTOR£ S170.F0R i>) 
TOS ARnCULÓ*Z* l:, * t,, ’ MI0 * <>t ' P ' Xl):P ’ P+Zl N£ * T Gl>5Ue 5120 R£M PR£ '5€ hTA C10N OA 
2SS0 IF op<3 THEN G0SU6 5I90:R£M INTRCOUCCION/MODIFICACION OEL REGISTRO ARTICULO 

2590 z*-”l”:R£TL*tN.RE« VUELTA A OPCIONES INDIVIDUALIZADAS 
2600 REM LISTADO 

2610 z4="LISTA00 FICHERO OE ARTICULOS - :zl=3: xr>=14 60S>UB 8590:CLS 

2620 IF z—3 THEN 2000 

2630 IF z-1 T6CN th=0 ELSE ch=6 

2640 GOSUO 5290 :CLS: IF z*-“" THEN 2600 REM «ARGENES LISTAOü 
2650 z*-0:IF ch=8 THEN CALL 39901, PzX ELSE 2670 

2660 IF z*-l THEN z*-”PR£PAR£ LA IMPRESORA Y Pi.LSE UNA TECLA (4 -> SALIR >” - zn=l 

GÜSUB 6660 IF z4=-«” THEN 2600 ELSE 2650 

2670 cl-CLpg-l :G0SU6 5430 REM CABECERA LISTAOO ARTICULOS 

2660 F<* »=m TD •s.>4=SFACE4<61)::READ. i .3. IF >4=SF'ACE4< 61> THEN 2760 

2690 IF c34=”0“ THEN 2730 

2700 IF c34="2" THEN 2720 

2710 IF VAL<RIGHT4<»4.5>)<VAL<MI04i*4.41 .5»i THEN 2730 ELSE 2760 
2720 IF VAL <R(GMT4(>4.5) K»VAL< MID4» >4. 4S.5) 1 THEN 2760 

2730 PRINT4cM.TAe<S-LEN(STR4<i>MMID4<bTR4< i ),2>" ' LEFT4< -4. 30)' ”HID4lx4.31. 10) 
TA8<52-LEN< $TR4<VAL<HID4< x4,41, 5 ))>) )STR4< VAL< «104 i > 4,41.5)) 'TA6' 58-LENíSTR4< VAL 
<MlD4<>4.46.5)) »))STR4<VAU«ID*<>4,46.5H*; 

2740 PRlNT#ch, TA6( 64-LENi STR4< VAL H1D* >4.52,5) ) ) ) )STR4i VAL(«I04i >4. 52.5) )) - ' ”«I 
D*( x4. 51, 1 )TA6< 72-LENT STR4 <VALi «1D4< >6, 57.5 >i> > ISTR4' VAL ■ «ID*i >4. 57. 5» i ) *4=STR 
4<VAL<MIDS< >4.52,5))4VAL<MID4< >4.57. 5))> 

2750 PRINT#ch, TAB<61-LEN<STR4< VAL' MIDS» *4,2 » 1 > > )MIt)4> s4 ¿>. .cl=cl«l 
2760 IF ch-0 AND cl-9 THEN z4=”PULSE UNA TECLA PARA CONTINUAR EL LISTAOü” zn«OG 
OSue e6CO.P9=pg4l :L0CATE43.7£.-LENlETR4ipg)> . 1 PF.1NT43. "p»g • "¿TR4« pg>. tl=0 
2770 IF ch»8 ANO el=54 THEN pg=pg+l .PRINT«8,CHR4i 12) GOSI fe 5430 c 1 -O: REM CA6ECER 
A LISTADO ARTICULOS 

2760 NEXT : IF th=6¡ THEN FRINT4&.CHR4112) ELSE W1ND0W4Ü, i .60.S,21 
2790 z4="PULSE UNA TECLA PAftA CONTINUAR' zr)«0:G»>~ue 8660 
2800 GOTO 2000 

2900 REH RETORX» AL MENU PRINCIPAL GEStANC 
2910 GOTO IOCK) 

3000 REM GESTION DE MOVIMIENTOS 

3010 z4=” GESTION DE MOVIMIENTOS" . z 1=7:zn=4:Gi3 c Le 8590 
-020 ON z GOTO íeOO. 3100. 3206,3200. 3400. 3foO. 7«XK) 

3100 REM INTRÚOUCCION 
3110 op*l 

3120 p4=SPACE4< 12»: ;READ.0p4, l.S:c=VAL<LEFT4!p6.4< i-IF c=72Sl IHEN z4= -j FICHER 0 C 
OMPLETU PULSE UNA TECLA" . zn= 1: GOSl 6 K6Ó GOTO fcwO 

3130 CLS:LOCATE 6,1 PRINr MOVIMIENTO: MI04<‘TR4i <>.j. :Ft* 1 = 1 TO 5 i4. , .=”• .NEXT 
GÜSUB 5520 :REM PRESENTACION MOVIMIENTO '4 

3140 GCPUt; 5560: REM INTRODUCCION/MODIFICA! ION DE MOVIMIENTO^. 

3150 IF VAL< z4 ) =0 THEN MID4'P4, 1, 4 >=LEFT4« M104> SIR4« c ). 2 >*SPACfc4) 4 i. 4 / : ! URI TE ,6p 
4,1.5'GOTO ovo 

3160 F4=C-PACE4<4>: ¡READ,<W4. VALI J4i 1 •• .61 4-LEFT4-M|I>4. STR4i VAL» 1 4 »♦! >.. >.--PA0 4 

<4),4) :URITE,**14,VAL< j4> I . > 6 c=c*l 

3170 GOTO 3120 

3200 REM MOOIF ICACl'JN 

3210 op-^ 

3220 G0S.U6 35ÍI0 IF VAL'I4)=0 THfN «kmI 

3230 1 4-SPACE4» 4 ■: ¡R£AO.O)4. VAL» »4i 1 » i,6 1 4=1 EF T4« MIC4» 3TR4« VAL' ) 4 • I .■ •sPACES 
4 1.41: IhlRITE. 9) 4. VAL» )4< 1 ■ i .< :h£AO ,*l 4 . VAL' ;4' I • • . *• 1 4~LEF T4< «104» STR4>VAl '14. 
♦I). >)*5PACE4'4i.4» :URITE.rtV4.VAL« j*. 1 ...» 

J *‘ 1 ' THtN J*‘ ■■■)*»•' 1 .»4< 4' = >4. 4.>.cp=l fti'MlE 5/5 1.» )4< I >=.». 1 i .-f 

3250 GOTO 3200 

3300 REM BAJA 
3310 op=3 

33iÉ) 60SU6 3500. IF VAL' z4 »-«j THEN aui 

3330 ZM KC5E •CONTROL fe* PARA VALIDAR lA BATA zrv=ü G0S06 -»6<> IF 24 • THEN 

<340 IF *4=&PA(E4< 61 » THEN <>" 

3350 j4< 1 ) 14H):6ÚSUB 5750. REM ACTUALIZACION CANTIDAD 

p4=i^ACE4«12). :R£AD.i*p4.1.5:F=VAL<LEFT4'p4,4i).»4=':PACE5«19):Ft4< i=t TO p-1 
:READ.«ív4.i*1.4 - :URITE.«>4.|,4 NEXT 

3370 MI 04 1 p4.1, 4 • =LEF T4« i M I D4< STR4i p-1 ). 21 *SPAC E4< 4 > <, 4 >: bRI TE . Ac 4 .1.5 

3380 k4=SPACE4i4) :REAO.Ol 4. VAL- |4) l t > ,6:1 4-=LEFT4< MID4< STR4i VAL' i 4 > 1 ).2)*SPACE4 

C4».4): :uRITE.6k4.VAL<l4< 1 »),6 

3390 GOTO 3300 

3400 REM CCNSLLTA 

3410 op=4 

3420 GOSUB 3500: IF VAUz4)=0 THEN 3CW 

34 30 Z4=-PULSE UNA TECLA PARA CONTINUAR” zn=0:G0SUG 

3440 GOTO 3400 

3500 REM INTRODUCCION. MODIFICACION. BAJA L (GNSULfA 

EO z*--M liV I MI tNT O^ zI=4:G0SUB 5930. IF VAL<z4)=0 THEN RET'JRN :REM TOMA MOVIMIEN 
TO DE ACCESO 

3S ^ I Í. VAL(z4»7250 THEN z4="M0VIMIENTU FUERA DE MARGENES PULSE UNA TECLA" zn= 

1 G0SU8 8660:GOTO 3500 

3S30 zl=19:«4="*ovt©»- :nf=4:G£r-'W 5050.REM COMFROCrACICN ARTICULO/MDVTO 

3550 IF op/1 AND z-0 THEN zn«l z4-”Mi)VIMIENT»j NO EXISTENTE PULSE UNA TECLA”.GOS 

UB 8660: GOTO 3500 

3560 IF op> 1 THEN c=VAL' z4 > >4=SFACE4> 19): ¡REA0.6-.4. t. 4: P = 1: RESTORE SS6u:FGR i=l 
VIMiInT 0 A Z4 Z *' Z1:1 * <1> * H,D *' ; ** ,P ' Z1,:P ” P * Z1;NE,<T 60í ' Ue 5520: REM FRESEN TACI'X MO 
1 IF op;3 

3S80 IF opz2 THEN z4=i4( 1) zl=6I nf*3:Gú6lX' 5 <j 50.LOCATE 49.I7:FRINT LEFT4i>4.30) 

3590 z4=”l“:R£TURN:R£M VLCLTA A CPCIONES INDIVIDUAL IZADAS 
3600 REM LISTAOÜ 

3610 z6="LISTAOO MOVIMIENTOS DE ARTICULOS" :zl=3zn=14;GOSUB 6S90 CLS 

3620 IF z=3 THEN 3000 

3630 IF z=l THEN ch=0 ELSE ch=8 

3640 60SU6 5970:CLS: IF z4=”” THEN 36.00. REM MARGENES LISTAOO M»3VIMIENT0S 
3650 zX-O: IF rh=8 THEN CALL 39901,«zX ELSE 3670 

3660 IF z*=l THEN z4=”F’REF‘ARE LA IMFRESORA Y FUL SE UNA TECLA «* -> SALIR)” zn=I : 
G0SU8 ©660: IF z4« t THEN 3600 ELSE 365») 

3670 cl-0.P9-i:G0SU© €150:REM CABECERA LISTADO fY)VIMIENTOS 
3680 FOR »-■! TO »*:x6=SPACE4< 19): :REA0,0>4. i.4 
3682 IF c34O-0” ANO VAL1LEFT4T >4. 3 , ,OVALi ( 34 > THEN 3720 
3684 IF c44-"0” THEN 3690 

3686 IF c 44= ’’ I" ANO MID4< >4,8.1 )< /"A” THEN 3720 
3688 IF c44=”2" AND MID4(v4,8.I)<^”B' THEN 3720 

3690 r4=SPACE4Tfcl). ¡REAO,<*r4. VAL < LEFT4» » 3) ). 3 : F RINTBch. TAB< 7-LEN(MID4< STR4< i ). 

2))>MID4(STR4<l).2)* *RIGHT4(>4,6)" "MID4Tx4.4.4)TAB< 23-LENTMID4TSTR4<VAL<LEFT4( 
x4.3))).2)>>MID4< STR4< VAL<LEFT4< x 4, 3)lí,2>" ”LEFT4( i 4. 30)" "MID4<r4. 31, 10)i 
3700 IF MID*(x4.8,l)="A” THEN PRINT4cM,TA8Í71-LEN<MI04<STR4<VAL<MI04T>4,9,5>> > ,2 
)>>MID4<6TR4<VAL<MIDS<»4.9.S)>i,2J: ELSE PRINT4ch,TAB<77-LEN<MID4< STR4<VAL<M1D4< 
x4 1 9,S))>.2)> IMID4<STR4<VAL<MID4< x4,9.S>)).2>: 

3710 PRlNT#cl>.TA6<7B)MID4< r4.51. D.xl=cHl 

3720 IF ch=0 AND cl=9 THEN z4«”pi.LSE UNA TECLA PAftA CONTINUAR EL LISTAOO” zn=O G 
OSU© 8660: P9=P9< 1. L'XATE*3,76-LEN' STR4< pg ) », 1: FRINT43. ”P.g ■’STR4lpg) 1 :cl-0 
3730 IF ch»6 AND cl=54 THEN P9=pg+1:PRINT46.CHR4<12):G0SU8 6150 cl»0:R£M CAGECER 
A LISTADO MOVIMIENTOS 


diante el mensaje “PULSE ‘CONTROL 
C PARA CONFIRMAR”, y a otras dos 
opciones de manejo de gestión de al¬ 
macén propiamente dicha. 

Mediante la primera opción, contro¬ 
lamos el fichero maestro de artículos y 
con la segunda, todo lo relacionado 


con los movimientos efectuados. 

GESTION DEL FICHERO DE 

artículos 

Esta primera opción de acceso al 
menú con la petición previa de la intro¬ 


ducción del disco de datos de almacén 
(«INTRODUZCA EL DISCO DE ALMA¬ 
CEN Y PULSE UNA TECLA»), si es que 
éste, debido a operaciones anteriores, 
no se encontrara ya en la unidad. 

Como es habitual, la ultima opción 
del nuevo menú, permitirá el regreso al 
anterior. Las primeras cinco opciones 
gestionan directamente el fichero de 
almacén para la introducción de nue¬ 
vos datos, modificación de datos ya 
existentes, baja y consulta de éstos, así 
como para la edición de listados con la 
información almacenada. 

INTRODUCCION: Esta opción se uti¬ 
liza para dar de alta nuevos artículos 
que hasta ahora no hubieran sido utili¬ 
zados. 

El primer campo que solicita esta op¬ 
ción es «ARTICULO», que deberá ser 
un número comprendido entre 1 y 500, 
que no haya sido anteriormente asig¬ 
nado a otro articulo, pues de ser así el 
programa rechazará la entrada con el 
mensaje «ARTICULO YA EXISTENTE. 
PULSE UNA TECLA», regresando a la 
petición de campo. 

Si deseamos abandonar la opción, 
hayamos o no dado de alta algún ban¬ 
co, bastará con pulsar la tecla «RE- 
TURN» o «INTRO», que será equivalen¬ 
te a ésta a lo largo de la cadena. Tam¬ 
bién tendrá el mismo significado en es¬ 
te caso la introducción de un supuesto 
banco 0. 

Una vez señalada una clave adecua¬ 
da para el nuevo artículo, el programa 
procederá a la petición del resto de los 
campos: 

— Nombre del artículo 

— Color 

— Cantidad mínima que considera¬ 
mos apropiada en stock 

— Cantidad máxima que considera¬ 
mos apropiada en stock 

— Unidad de medida del articulo (1 
carácter) 

- Precio por unidad para la valora¬ 
ción del stock 

Al finalizar la entrada de todos los 
campos aparecerá el mensaje «PULSE 
“V” PARA VALIDAR». En caso de que 
los datos sean correctos, pulsaremos 
«V» con lo que se retornará a la petición 
de una nueva clave; de no ser asi, de¬ 
beremos pulsar cualquier otra tecla, 
volviendo el programa a la petición del 
campo «NOMBRE», pudiendo modifi¬ 
car los datos ya escritos mediante las 
teclas apropiadas. 
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MODIFICACION: Esta opción opera 
de forma muy similar a la anterior, y nos 
permite modificar datos ya introduci¬ 
dos en el fichero. El primer campo será 
como en el caso anterior «ARTICULO», 
que de nuevo será un número entre 1 y 
500 correspondiente aun artículo ya in¬ 
troducido; de no ser así, el programa 
emitirá el mensaje «ARTICULO YA 
EXISTENTE. PULSE UNA TECLA». 

A continuación son presentados to¬ 
dos los campos ya mencionados, posi¬ 
bilitándose su modificación mediante 
las teclas de edición. Al finalizar la mo¬ 
dificación aparecerá el mensaje «PUL¬ 
SE “V” PARA VALIDAR», permitiendo la 
remodificación o validación de los da¬ 
tos actuales. 

La salida de esta opción, se produce 
del mismo modo que en el caso ante¬ 
rior. 

BAJA: El procedimiento será el de to¬ 
ma de clave de un artículo, según las 
normas vistas para modificación. Una 
vez escogida la clave adecuada el pro¬ 
grama presentará el contenido de to¬ 
dos sus campos, pidiendo una confir¬ 
mación de la baja mediante el mensaje 
«PULSE “CONTROL B” PARA VALIDAR 
LA BAJA». 

En el caso de que al artículo en cues¬ 
tión le hubiera sido realizado algún 
apunte de movimiento, y para evitar el 
descuadre que supondría la supresión 
del mismo, el programa no admitirá la 
baja de la clave, advirtiendo esta cir¬ 
cunstancia con el mensaje de error 
«¡EXISTEN MOVIMIENTOS! CLAVE DE 
ARTICULO NO DISPONIBLE. PULSE 
UNA TECLA». 

La salida se produce nuevamente 
como en la opción de INTRODUCCION 
o MODIFICACION. 

CONSULTA: Esta opción es en todo 
similar a la de BAJA, con la diferencia 
que una vez presentados los campos 
aparece el mensaje «PULSE UNA TE¬ 
CLA PARA CONTINUAR», sin efectuar¬ 
se ningún tipo de alteración en el fiche¬ 
ro. 

LISTADO: Seleccionando esta op¬ 
ción accedemos a un nuevo menú titu¬ 
lado «LISTADO FICHERO DE ARTICU¬ 
LOS», el cual presenta como es habi¬ 
tual una ultima opción de retorno al me¬ 
nú anterior. Las dos opciones restantes 
permiten seleccionar la vía por la cual 
se realizará la presentación de la infor¬ 
mación pantalla o impresora. 

En el caso de la presentación por im¬ 


presora debemos poner cuidado en te¬ 
ner la impresora preparada para el lis¬ 
tado; de no ser así, aparecerá el men¬ 
saje de error «PREPARE LA IMPRESO¬ 
RA Y PULSE UNA TECLA (*-> SALIR)». 

En cualquiera de los dos casos, la 
impresión finalizará con el mensaje 
«PULSE UNA TECLA PARA CONTI¬ 
NUAR». 

Además, será necesario indicar las 
siguientes condiciones: 

— Margen inferior: clave de articulo 
más bajo a listar («RETURN» para 
abandonar la opción). En caso de que 
deseemos listar desde el primero, de¬ 
beremos introducir «1». 

— Margen superior: clave de artículo 
más alto a listar. 500 para listar hasta el 
último. 

— Tipo de listado: en este caso se 
admiten tres posibles valores: 

0 (o «RETURN») — Total de artículos 

1 — Artículos bajo mínimo 

2 — Artículos sobre máximo 


GESTION DE MOVIMIENTOS ■ 

Esta opción da acceso al menú, cuya 
última opción es la de retorno al menú 
anterior, y las restantes se detallan a 
continuación: 

INFORME: da acceso a un submenú 
en el cual se nos permite escoger el 
grupo de artículos sobre los cuales 
efectuar el informe, indicando el mar¬ 
gen inferior («RETURN» para abando¬ 
nar la opción) y el margen superior o 
bien sobre la totalidad de los artículos. 
Los datos proporcionados por este in¬ 
forme serán: 

Informe total del stock: 

Total de movimientos 

Total de artículos 

Artículos bajo mínimo 

Artículos sobre máximo 

Valor total del stock 

Informe de un grupo de artículos: 

Clave 

Nombre 

Color 

Precio unitario 
Unidad de medida 
Cantidad 
Valor 

Número de movimientos 
Suma parcial del grupo 
INTRODUCCION: Asigna automáti¬ 


camente el número de movimiento, so¬ 
licitando los siguientes datos: 

— Clave de artículo en el que se rea¬ 
lizará el movimiento. Este deberá haber 
sido dado de alta con anterioridad; de 
no ser así, el dato se rechazará con el 
mensaje «ARTICULO NO EXISTENTE 
PULSE UNA TECLA». Si el artículo exis¬ 
tiese, su nombre sería impreso en la 
línea inferior para mayor información 
del usuario. Este primer campo, como 
es habitual en la práctica totalidad déla 
cadena, es el que se emplea para el re¬ 
torno al menú del que se procede, me¬ 
diante la pulsación de la tecla «RE¬ 
TURN» o «INTRO». 

— Documento o campo de referen¬ 
cia para el usuario. Es conveniente 
asignarle una clave que se correspon¬ 
da con la de archivo del documento 
que generó el movimiento en nuestros 
archivos de papeles. 

- Alta/Baja. Carácter que debe ser 
A o B, según el movimiento sea de alta 
o baja de la cantidad del artículo en el 
almacén. 

- Cantidad de alta o baja. 

— Fecha del movimiento, en el for¬ 
mato típico de la cadena. La validación. 

MODIFICACION: El primer campo 
solicitado será el número de movi¬ 
miento a modificar. La modificación 
responderá a los mismos criterios ex¬ 
puestos para la modificación del fiche¬ 
ro de artículos. 

BAJA Y CONSULTA: Seguirán igual¬ 
mente los criterios expuestos en los 
puntos anteriores. 

LISTADO: Tras el submenú que per¬ 
mite la selección de las opciones de 
impresión, accederemos a una panta¬ 
lla en la cual se solicitarán los siguien¬ 
tes datos: 

— Margen inferior («RETURN» para 
abandonar la opción). 

- Margen superior («RETURN») lo¬ 
caliza el último movimiento). 

— Clave del artículo cuyos movi¬ 
mientos deseamos listar. Introducien¬ 
do «0» o «RETURN» obtendremos un 
listado referente a todos los artículos. 

- Tipo de listado: 

0 (o «RETURN» — Altas y bajas 

1 — Sólo altas 

2 — Sólo bajas 

Para finalizar, felicitamos al progra¬ 
mador de la aplicación, por la eficacia y 
utilidad de sus programas, confiando 
en que nuestros lectores puedan dis¬ 
frutar de estas características 
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3740 NEXT IF ch-B THEN PRINTV6.CHR»< 12> ELSE WlNOOUVO. 1,80, 5.2» 

37SO z*-*PULSE UNA TECLA PARA CONTINUAR" zn-O:GOSUB *660 
3760 GOTO 3000 
3800 REM INFORME 

3610 INFORME DE STOCK":zl-3.zn«17 GOSlfc 8590CLS•:«=z: IF z=3 THEN :OCiO 
3015 z*“"LISTAOO INFORME DE STOCK" .zl-3: zn-20 ¡GOSUB 8S90CLS:IF z-S THEN 3010 
3820 IF z-1 THEN ch-0 ELSE *¡h-0 

3825 IF t-2 THEN GOSUB 6260: IF z*-"" THEN 'Aá/ty REM MARGENE? LISTADO INFORME 
3830 z*»0:IF ch-8 THEN CALL 39901.«ZX ELSE 30-50 

3840 IF z*-l THEN z*="PREPARÉ LA IMPRE'CftA Y P14.SE UNA TECLA" zn-1 GOSlfc £<660-00 
TO 3030 
3850 CLS 

3060 ON t 60?Tt 6370.6560 

3360 IF eh»8 THEN PRINTV6.CHR»»12» ELSE UINOOWM).I.60,5.21 

3970 Z*=*PULSE UNA TECLA F'ARA CONTINUAR"zn=0 GOSUB €¡€60: GOTO XlOO 

4000 REM RETORNO Al MENU PRINCIPAL 

4010 z*="PULSE 'CONTROL C - PARA CONFIRMAR":zn»Ü.6ü»U£ 6660• IF z» THEN 1000 
4020 :CLOSÉ 

4030 dl*CO-l ¡GOSUB 6760 REM ClMFRCWXION DE DISCO 

4040 CLS ERASE n* LOCATE 82.26,1;FRINTV2 "CARGANOÜ LA APLICACION GESINT" 

4050 CHAIN MERGE ga*in»" DÉLETE 10-7010 
SO»)*) REM AREA DE «LiftUTINAS 
5010 REM TOMA DE CLAVE DE ACCESO 
5020 CLS 

5030 »•="" zf = í zc=n zn -1 GOSUB 8010 
5040 RETURN 

5050 REM COMPROBACION ClAvE 2» ESTA LIBRE CL=L»»NGiTUO REGISTRO; _»=( ADENA NOMER 

O CLAVE U 2-0 -• LIBRE; 2=1 - OCUPADA 

5060 «*=SfACE*i2li 

5090 ! REAO »» *. VAl < z» » nf 

5100 ¡F * ?PACE*< z) • IHEN z«l ELSí z=»> 

5110 RETURN 

51 20 REM PRESENTACION DATO' ARTICULO .1 
5130 RESTORE 5170 
5140 FUR 1 = 1 10 6 

5|S».i READ c*.zl LOCATE 4**»i PRINT »* !*• * 

516o NEXT 

5170 DATA Ni.MFRt. -".COLOR. K> 

5175 DATA SloC» MINIMO 5.-.T*XI Mm< IMM.R.UNIDAD HtOliM*, l FREÍ lo UNITARIO. 5 
5100 RETURN 

5150 REM 1NTRÍÍ»»X( lOM/MUDlFKAf ll*M DEL REblsTRO ARTICULOS 
5200 RESTORE 5170 

Bilu FOR 1 = 1 TO t- IE <i . AND i s • ÚR > THEN rn=l Ei SE zn-O 
5220 REAC z*.zl:z*=z»« ' k»=i»<U zc=6 zf «4+.I, GOSUB 6010 

5230 >*< i »=LEFT*i z*»SPACE»*zl *.zl • 

S430 1K i = 4 AND VALI i»<4il VAL<j*f 3*1 THEN z*= "MARGENES |NCC«HERENTES PULSE UNA 
TECLA": zn-1; GOSUB 8660.RESTORE 5175.1-2 

5240 NEXT:x*-"PULS£ 'V PARA VALIDAR" . zn-O: 60?» €¡ Ñ6€0: IF op-1 THEN FOR 1 = 1 TO 6 
ít'i>-)•'!> NEXT 

5250 IF UPPER** 2*• "V” THEN 5I**U 

5260 .•*="' FOR 1=1 TOE. *=-**j*»i> NEXT 

5265 IF -*-SPAC E *» 40 >*''0 O O THEN 5260 

5270 : WR[ TE c .3 

5260 RETURN 

52 J) REM MARGENES LISTADO 
5300 c I •="".c¿*=”": t 3*="" 

5310 CLS 

5320 LOCATE 30,7 PRINT "MARGEN INFERIOR 'ti» LOCATE 30.9 PRINTMARGCN SUPERIOR c 
2* LOCATE 30.11 -PRINT"'TIPO DE LISTAOS "ci* 

5330 z*="MAR6EN INFERIOR " ; y*>cl« zl = 7:zc = J»*.zl=) zn*l:GOSl.G 6010 *.i=VAl« z» i : 1 1» 
-Z* IF VAL-z*i-0 THEN z*-' " RETURN 

5340 z*="MAR6EN SUPERIOR:“ -y*=t 2* z»=9: zc=<*.zl*3.zn=l .G0SU6 6010 **%=VALi z*i: c2* 
-z* 

5350 IF wi.M* IHEN z*="MARGENE: INCOHERENTE- PULSE UNA TECLA" :zn=I .GOSUB 6660:6 
OTO 5310 

5360 IF *»>SOO THEN z* "MARGEN SUPERIOR DEMASIADO ALTO PULSE UNA TECLA" :zn=l .GO 
SU8 8660; 03 TO 5310 

5370 z*-"TIPO DE LISTADO “ r*=c3* zl II:zc»30:zl»l zn-1 ¡GOSUB 6010:IF VALIz*)>¿ 
THEN z*="TIPO DE LISTADO NO EXISTENTE P<X SE UNA TECLA".zr^l :G0SU6 «660. GOTO 537 
O 

5ÍL0N VALi z* »•! GOTO 5 Sh*. 5400,5410 
5390 b*="MAESTRO ARTICULOS": GOTO 5420 
5400 b*=”ART ICULOS BAJO MINIMO" ¡GOTO 5420 
5410 b*=" ARTICULOS SOBRE MAXIMO" 

5420 c 3*=z» LOCATE 57,17. PRINT b*.z*= 'PULSE 'V' PARA VALlOAR' :xn=0 GChUfe 8660 IF 
UPPER*<z*X>-'V" THEN 5310 ELSE RETURN 
5430 REM CABECERA LISTAOO ARTICULuS 

5440 PRINTVch, "TU MICRO AMSTRAD"TA6<36*f»TAB. 74 i"Fag STR*»pg). 

5450 PRINTVe h. STRING*< 80."-" J; 

5460 IF ih=0 THEN t»*"":FÜR j = l TO LEN*b*> t*=t**MID*tb«. J. !*♦' NEXT;1V-LEFT*< 
t*,LEN«t*)-I) PRINT TAB«4»)-LEN* IV)/2)t* ELSE FRINTV8,TAB»40-LEN«b*)>CHR*<14Ib* 
5470 FRINTVcM.STRlNG*»60.:IF eh-6 THEN FRINTVB 

5480 F'RINTVth, "CLV"SPCf 10l"N O M B R E"SPC« 11)"C OLOR MIN MAX P/\M U CA 
NT VALOR" 

5490 PRINTVth.STRINGK 80.• 

5500 IF th=6 THEN FR1NTV6 ELSE W1ND0U 1.80,13.21 WIN00WV3,1 .80.5. 12 
5510 RETURN 

5520 REM PRESENTACION MOVIMIENTO 2* 

SS30 RESTORE 5560 
5540 FOR >-l TO 5 

5550 READ c*,zi LOCATE 6, 2*2*1 PRINT c*. i*. i» NEXT 

5560 DATA CLAVE DE ARTICULO, 3. DOCUMENTO.4.ALTA/BA)A 1,CANTIOA0,5.FECHA.6 
5570 RETURN 

5580 REM INTRODUCE10N7M0DIFICACION DEL MOVIMIENTO C 

5590 RESTORE 5560 POR i-l TO 5 

5600 READ z*.zl z»-z**":" 1 ;c»=z»; lc=zl 

5610 »•-!*(i):zc-8:zl-2*2*i .zn-O.IF i-2 OR i>3 THEN zn-1 

5620 GÜSUB 8010 

5630 IF í/l THEN 5670 

5640 IF VAL.z*»=C> THEN IF OA=l THEN RETURN ELSE Sí60 

5650 zl=6I nf - 3: GOSUB 5050 IF z-I THEN LOCATE 49.I7:PRINT LEFT*< >*.30): iHu-LE 
FT»«z»*SPACE*l3>.3i:G0T0 5720 

5660 z*-"ARTICULC> NO EXISTENTE PULSE UNA TECLA" . zn-1 :60 ; C« &-U ): GOTO S590 
5670 IF i<>3 THEN 5690 

5680 IF z*<.>"A" AND z*. <"B" THEN z»-“ENTRE 'A' O 'B' PULSE UNA TECLA* :xn=l .GOSU 
B 8660-z*=c*:zl=Ic:GOTO 5610 

5690 IF J*U>=i»<l< THEN 5692 

5691 IF 1=4 ANO j*< J l="B" AND VAHR1GHT*!»*. 5 »i - VAL* z*' THEN z*='CANT10AO NO DIS 
PUNIBLE EN STOCK PULSE UNA TECLA" zi*= 1: GOSUB 6660 z*-<* zl-Ic:GOTO 5610 ELSE 57 
00 

5692 IF op>> 2 CP i. -4 OR j*i ?»- '"B" THEN S7«X> 

5695 IF i«l3>-"A‘ THEN »=VAL' RIGHTtlS> )~VAL< !*■ 4) ■ ELSE s-VAL< RIGHT»- 5) )*V 
AH 1*14 >> 

5697 IF s-VALlz* > THEN z*-"CANTIDAO NO D1SPC-N1ELE EN STC<I PULSE UNA TECLA" zn- 
1: GOSi)B 8660 : z*»c *: z 1=1 c: GOTO 5610 

5700 1P 1-5 THEN GOSUB 8720 :1F z-0 THEN z*-FECHA INCOHERENTE PULSE UNA TECLA" 
zn-1 GOSUG 8660 z*=t*:zl-lc .GOTO 5610 
5710 J*< i »=L£FT*i z*»SFACE*-zl ».zl « 

5720 NEXT:z»x'F'ULSt V PARA VALIDAR" zn-O G0S18 Sttn IF «•=! THEN FOR 1 = 1 TO 5 
i*< i )-]»< i > NEXT 

5730 IF UPF'ER*' z* » "V THEN 5560 

5740 Gú?L»E' 5750 »*='": FOR i = l TO 5- -•=.*«jV i i NEXT - ¡UR1TE,«»--*, c . 4:z*=" 1" RET«.*RN 
REM MODIFICAR CANTIOAD DE ARTICULO Y VALOR ECONOMICO STOCK 
5750 REM MODIFICAR CANTIDAD DE ARTICULO Y VALOR ECONOMICO STOCK 
5760 xMSPACE«i6l) ¡READ.0-* VAL» j* l»),3 *=VAL« RIGHT*« 5 n :p»=SPAC£*< 12 ¡REA 
0.8p*.1.5 

5770 IF OP-S THEN SÍWO 

5780 IF j*i 3»="A THEN nc=**VAL» J*< 4 « ■ ElSE n*=*-VAL< )•' 4 i 
579») IF n* O THEN **-STR*»n*i ELSE s*=MIO*. STR*i ns» 2< 

5795 «*=LEFT*i s**S-FACEV» 5» Ri IF op= 2 THEN *=n* ELSE í 
580») IF op»l THEN 5030 

5810 IF i*i ;:ic"A" THEN n*=*-VAl » i«« 4 . ) ELSE ns=s*VAL» l*» 4 » 

5620 IF n* ») THEN **-STR*»n«> ELSE í*=MIO*i STR*. ns» 2» 

5625 «*=LEF T* » s**SÍ AC ES» 5 ■, 5 • 

5830 MID»< -*.57.5»=«*:¡UR I TE,* *.VAL.j*'I ■ • 

5840 p-VAL»MIO*» V.52,5»i s-VAL.RI6HT».p» 

505Ú IF op-3 THEN 5890 

586v IF j*< 3 )-"A" THEN ns=»*VAL< j*> 4 . >*p ELSE ns=s-V-i_. j*. 4 ■ »»p 
5670 IF m u THEN «*=STR*< n* . ELSE s*=MIO*<STR*. n*i 2» 

5075 **«LEF T*» s**SFACE*» 8» IF <*-=; THEN s=n» ELrt 5910 


COLOR 


SMO IF op -1 THEN S9l'j 

5890 IF i*» 3 »=' A" THEN nt=s-v'AL» i*»4> »*p EL--E r»s=**VAL» l*- 4 »»*p 
5900 IF n* O THEN s*=STR»«itS. ELíE s*=MID«» STR*. n* > 2 * 

5905 s*=LEFT*«s**SFACt »'> ».i * 

5910 MID*»P* 5.3 i=s* ¡WRITE «p*.I 5 
5920 RETURN 

5930 REM TíílC MOVINItNTu DE A. CE?» 

5940 CLS 

6950 y*—"" ’zf—1 Zt“í- zn=l 6 C'SC<t fc»)|0 
5960 RETURN 

6970 REM MARGENES LISTAOO MOVIMIENTO- 

5900 el*-"■' :c2*-"" -e3*-"" .c4 *-””'.f*-SFACE*' 12). ¡REAO.Op», 1 .5;p-VALlLEFT*ip*,4>» 
5990 CLS 

6000 LOCATE 30. 5¡FR'INT'MARGEN INFERIOR. c 1 * LOCATE 3v, 7 ¡PRINT"MARGEN SUPERlCP:"c 
2*'- LOCATE 30.9 PRINT-CLAVE ARTICULO "c 5*. LOCATE 30.11 PRINT-'TIFO 0€ LISTAOO: C4 

6010 z*=” MARGEN INFERIOR ,*=c )* zf =5 zc = ':0 z! =4:zn= 1 :GOSUB i010.i»i=VAL»Z*> el* 
-z* IF VAL< Z* )-0 THEN z*-' RETURN . , , „ . 

6C>2C; z*= "MARGEN SUPERIOR r*=c 2 * zf*7.zc= » zl-4.zn=l GUílt >t» 1 i>,« n*-VAL« Z» > t-* 
-z» IF VAL* z*>=0 THEN ms=p-l c2*=MID*iSTRVip-1),2> LOCATE 46.7¡PRINT c2* 

6050 IF mi rus THEN z*-'MARGENES INCOHERENTES PULSE UNA TECLA’ zn=l GOSCt £ 6 tO'G 
OTO 5990 

6040 IF .**-p-l THEN z*= MARGEN SUFERIOR DEMASIADO ALTO PULSE UNA TECLA" zn-1 GO 

605C) 8 z*- CLAVE ^ARTICULO *' v*-c3* zf =9:zc=X._ zl=3 zn-l:GCr4l8 8010: IF vAHz*)>5C*j 
THEN z»-"ClAVE DE ARTICULO DEmASIAOiD ALTA PULSE UNA T ECLA" zn-1 ¡GCrOB 8b60:G»3T 
O 5990 

€-055 IF VALtz* »=0 THEN tolM*‘TüOOS LOS ARTICULOS' b2*-"":GCT0 6 O 6 V 
6060 zl-61 a*= *rtic’:nf=3:GOSUB 5050 REM COMPROBACION ARUCULO/MuVIMIENTü 
6070 IF z-0 THEN zn-I z*= ARTUULO NO EXISTENTE PULSE UNA TECLA' GOSUB fe€EO GOT 
O S990 

6075 bl»=LEFT»i«V.3C>* b2*-MID*< •*, íl. 10* 

6080 c 3*=Z*¡LOCATE 49.16 ¡PRINT bl» LOCATE 49.17;F'RINT b2* 

6090 z*="TIFO DE LISTADO::r*"c4*. zf=l1¡zc=30:xl=1¡zn=l GOíUB 6010.IF VALiz*>>2 
THEN z*--TIFT) OE LISTAOO NO EXISTENTE PULSE UNA TECLA":zn=l¡G0SU8 0660:GOTO 609 

O 

6100 ON VALiz*>*1 GOTO 6110.6120,6100 
6110 b3*-”ALTAS Y BAJAS DE ' ¡GOTO 6140 
6120 b 3*-''AL TAS DÉ ".GOTO 6140 

613Í) b 3*-"BAJAS DÉ - „ ....... 

€140 c4*=z*:z*=bl*:G0íi*! 6240:bl*=z*. IF b¿* "* THEN z*=b2» 6 usU 8 6x4u b 2 *= *z 

*145 LOCATE 49.15-PRINT b3»¡b»-bJ*+bl*»b2*¡Z*="PULS€ V PARA VALlOAR": zn-O:GÜSU 
B 8660-IF UPPER*» z»>./"V" THEN 5990 ELSE RETURN 
6150 REM CABECERA LISTADO MOVIMIENTOS 

61€¿> FRINTVth.'TU MICRO AMSTRAO* TAB» 36 >f *TAB» 74 >"P»g ."SrR*»pg>¡ 

6170 PRINTVe h. STR I NG»< 00 , "*; 

6180 IF ch-0 THEN 618S . , .. rvT .. 

6182 IF L£N(b*)<40 THEN t*=. FOR 1=1 TO LENib*>.l*=t**MID*«b*,j,1>♦ :NEXT:t*- 

LEFT*(tV.LENit*)-l ) ELSE t*-b* 

6183 PRINT TAB»40-LENt 1V)/2)1*¡ GOTO 6190 . , 

6 | 8 S |F LEN<b*>>39 THEN PRINTV6.TA8» 40-LEN»b»)/2)b* ELSE PRINIV8,TAB*40-LEN(b*) ) 
C-HR*< 14 )b* 

6190 PRINTVch,STRING** 80, ): IF ch =8 THEN FRlNTVP 
6200 PRINTVch,* MOV FECHA DOC ART NOMBRE 

ALTA BAJA U* 

6210 PRINTVch." "STRINGV» 76.) 

6220 IF ch-0 THEN F'RINTVB ELSE W1ND0W 1 .80. 13.21 :WINÜOUV¿, 1 ,80.5. 12 
6230 RETURN 

6240 REM PREPARACION DE TITULAR . 

6250 FCA i-LENiz*) TO I STEP -1:IF MID*«z*.i.l> ■ * THEN z*=LtFT»» z*. 1 >: 1-0 

»iíu NEXT 
€-270 RETURN 

6 ¿<U REM MARGENES LISTADO INFORME 
629*) cl*=" :c2*»'" 

630U CLS 

6310 LOCATE ?0.7 ¡PRINT "MARGEN INFERIOR "el*.LOCATE .<0, ^ - PR I NT "MARGEN SUFFMOR “f 
;■* 

6320 z*="MAR 6 EN INFERIOR"'¡vV-c IV zf=7:zc= *» zl 3: zn~l .GOíi«t (¡AID *,i=VAL»z** tí» 
-z* IF VAL 1 z* * =0 THEN z*=" ¡RETURN 

63ZO z*-"MARGEN SKFERIC-R -y*=c>* zf-9.rc=30:zl-i zn-1 ¡GOSUB -O !«.>:*.*= VAL» z*) ti* 

634*> IF mi <ns THEN z*= MARGENES INCOHERENTE? PU.sE UNA TECLA : zn=l GuSLB t€€o G 

OTO 6300 

6 *50 IF m> 500 THEN z*-"MARG£N SUPERIOR DEMASIADO ALTO PULSE UNA TECLA" ¡zn-1 G*) 

SUB 8660 ¡GOTO 6300 

6360 z*-"FULSE ’V PARA VALIDAR'. zn-O * GOSCC- 8660: IF UPPER»* Z* * -"V" THEN 6310 EL 
SE RETURN 

6370 REM LISTAD*) INFORME TOTAL STOCK 

6380 PRINTVch, "TU MICRO AM?-TRAO"TAB* 36)l*tAB» 74* "P«g I" 

639C» FRINTVch,STRING»* £¡0. "= ’ *; 

6400 b *=-informe total de stock-¡if ch=o then i»=" for j=i re» LEN<t*».t*=t**MiD 
»*b*.).!)♦• ¡NEXT t*=LEFl*it* LENit*)-l) PRINT TA 81 40-LEN* t** /2* l* ELSE PRINTV 8 
. TAB* 40-LEN»b*) lCHR*< 14 >b* 

6410 PRINTVch.STRING** 80.“-") IF ch-0 THEN FRINTV3 

6420 PRINTVch PRINTVch 

6430 PRINTV2.TA8* 32 /"ANALIZANDO DATOS". 

6440 b«t=0: *m=0: 1 a-0; 1 m-u 

6450 >*=SFACE»*6l):k*=SPACE*«4> POR í-l TO 500:¡READ.0>*. 1 .. 

64€-0 IF x*=SPACE*i 61) THEN 649») 

6465 : READ. *. i . 6 : 1 »=t «»♦ VAL«k * * 

6470 IF VAL l R I GHTV» >,*. 5 » ) •* VAL *MID*‘ »*,41 .5)/ THEN b*.=bm*l ¡GOTO 6490 

6480 IF VAL»RIGHT**x*. 5)) -VAL*MID*»>*.46,5») THEN cm-*»*! 

6490 NEXT¡CLSV2 

€495 PRINTVch. TAtil 24* "TOTAL DE MijVlMI ENTOS: "MID** STR*» ti. ). 2) PRINTVch 

6500 PRINTVch. TAB» 24»“TOTAL 0€ ARTIC»JLOS: ' MID** STR** t»).2» PRINTVeh 

6510 PRINTVch. TA6l24 '"ARTICULOS BA JO MINIMO: "MIO** STR*«b»» 1 . 2 ) .PRINTVch 

6520 PRINTVch, TAB*24/"ARTICULOS S»JE¡RE MAXIMO- MIO** STR*» *M) .2) ¡PRINTVch 

6530 p*=SFACE»»12>: ¡REA0 .i*p*. 1.S PRINTVrh TAB* 24»"VALOR TOTAL DEL STOCK : "VAL»RI 

GHT»*P*.0))''Pt* " 

€540 RETURN 

6560 REM LISTADO INFORME GRUPO OF ARTICULOS 
6S70 c 1-Opg-l¡«-OGOSUB 6670:REM CABECERA LISTADO INFORME 
6580 >»=SPACE*»61 ) k *-SF ACE*'4 » ¡FOR í-k.i TO * 11 *. ¡READ.0>*. 1.3 
6590 IF >*=SPACE*> 61 ) THEN 6640 

6600 PRINTVch. TAB» 7-LEN* MID** STR»* 1 *. 2 ■» )MIO*‘ ;-TRVf 1 *. 2 •" "LEFTVC x*. 50)" “MID*»» 
S,31, 10) TAB*5S-LEN* MIO*» STR»* VAL» MIO**>*.S2. 5»)).2)) /MIO**STR»*VAL»MlO*<>•,52.5) 
0,2)" MIO**-*.51,1 *¡ 

6610 FRINTVch, TAB» 63-LEN* MIO»* ?TP»i VAL* RIGHTV* . 5 ■ 1 >.2** *M1D*» STR*» VAL»R1GHT»< y 

*. 5))). 2 >, : v=VAL» RIGHT*» -•* 5* *»VAL> MID*< ,». 5¿ 5»i 

6620 FRINTVch,TAB» 73-LEN»MIO*'STR*'v* .1•• /MIO*»STR*»v *, 2 *. ¡READ. 8 k*. i .6 
6630 PRINTVch. TAB* 78-LEN*MlO*»STR*f VAL» l»o. 2o >MID*»STR*f VAL» k») >.2). *-•♦«.€ 1-e 
1*1 , , 
€640 IF cb=0 AND cl-9 THEN z*='FULSE UNA TEC1 A PARA CONTINUAR EL LISTADO' :zn-O:G 
CJSL 8 8660¡pg=pg*l L0CATEV3, 76-LEN* STR*i pg * >. 1 F'RINTVi. "F*g " STR*» pg); : c 1-0 
€650 IF ch =6 AND c 1=54 THEN pg=pg*l FRINTV 8 .CHR»* 12 * .60-06 €670 c 1=0. REM CABEC-ER 
A LISTAOO INFijRME 

6 € 6 C» NEXT IF ch =6 ANO c i=5z THEN pg=pg«l FRlNTVt-.CHR»* 12) GOSUB €67O:cl-0 REM CA 
BECERA LISTAD') INPijRMÉ 

€661 IF ch =0 AND cl=7 THEN z*='PULSt UNA TECLA PARA CONTINUAR EL LISTAOO*:zn-0 G 
ÜSU 8 6660.|>9=P9*1 L»)CATEV3,76-LEN» STR*» pg )*, 1 ¡FRINTV). "Fag "STR*» pg) . ; c 1-0 
€€ 6 x PRINTVch.TAB» ¿2 *STR1NGV*41 * FRINTVch. TAB» 32»"SUMA PARCIAL DEL GRUPO 
' TAB»73-LEN»MID*»STR*»**,2)DMIO»* »TR*»g»,2) 

66É4 IF ch -8 THEN PRINT1M Ck**> 12* EL i UINDOUV* l.cw.5.21 
666 S RETURN 

6670 REM CABECERA LISTAD») INFORME 

6680 FRINTVch. TU MICRO AMSTRAO"TA 8 » 36/f *TA 8 » 74*"Fa-j ' s-TR*» pg». 

€69».» FRINTVch.STRING*» <U. “ = " ). 

€7<:«> b»=' INFORME ART IC"L»)? DE"- -TR»' NI *♦ A"*STR»i n.» * IF ch=Ü THEN »*= " FOR 3-1 
TO LEN»b* ) t*=tS*MI0»»b*. j. 1 ■* NEXf t*=LEFT»<t*.LEN«1*>-1 ) PRINT TA 8 » 40-LENK 
t* </2»t* ELSE PRINTVE . TAE:» 40-LEN* t***CHR*» 14 *b* 

6710 PRINTVch. STRING** 80."*"» IF eh=« THEN F'RINTVS 

€-720 FRINTVch. TAE* 4 ■ •CLV“TA£:' 17*"N O M 8 R fc' TAt» 3i"C U L O K P/UN U CANT 
7AL0R N MV" 

673C» PRINTVch STRING*» i "* 

674») IF ch =6 THEN FR 1 NTV» El E WINDÚW I 21 WINDOVV S.Iz 

67S») RETURN 

7««) REM RETORNO AL MENU PRINCIPAL 6 EST-JC» 

Jt-IO 6 C»T*:> l»Xx« 
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concurso 


La revista TU MICRO AMSTRAD, con el fin de premiar el 
esfuerzo de programación realizado por sus lectores, tiene el 
honor de convocar la quinta edición de un importante concurso 
de programación, al cual podrán tener acceso todos nuestros 
lectores, de cualquier edad, estado y condición. 

Cada tres meses se efectuará una nueva convocatoria, pudiendo 
participar cada concursante en todas cuanto desee, siempre y 
cuando respete en todos sus puntos las bases que más adelante 
se indican, optando asi al gran premio de 
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La máquina revolucionaria: 
escribe, corrige, archiva, 
crea y edita documentos, 

elige 400 tipos de letra... 




AMSTRAD 
PCW 8256 


PARA MAS INFORMACION RUEGO: 


O ENVIO DOCUMENTACION POR CORREO 


Escribe frases estándar, bloques de texto, pone cabeceras' 
o pies de página, controla la distribución del texto y 
AHORRA TIEMPO porque le permite crear un documento 
mientras se está imprimiendo otro. 

Memoria de 256 K RAM teclado profesional, unidad de 
disco (180 K por cada cara), impresora alta calidad con 
400 tipos de letra y además... 

...dotado con un sistema operativo, CPM, con el que 
podra realizar tareas como Contabilidad, Control de Stocks, 
Facturación, Bases de Datos, Hojas de Cálculo, etc., con 
eficacia, facilidad y rapidez. 

‘Ampliable a 512 K RAM y segunda unidad 
de disco con 1 Mbyte. 


Sin conocimientos previos, (Jsted podra crear cartas, 
documentos, informes, minutas, presupuestos y archivarlos 
para utilizarlos cuantas veces sea necesario. (Jn disco de 3” 
puede almacenar 130 hojas tamaño DIN A 4 
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HEAD OVER HEELS 

El remate de la jugada, la guinda del pastel, la banderilla final, 
todo eso supone la nueva creación de los programadores 
del famoso y popularísimo Bat Man. 


P ara comenzar con moral y áni¬ 
mos, advertiremos que este juego 
es doblemente más difícil, pues 
debemos manejar a dos personajes, 
llamados HEAD y HEELS. Su misión es 
liberar los cinco reinos del imperio 
donde habitan y volver a su país natal, 
Freedom, cuyo nombre significa liber¬ 
tad. 

Para ello, no tendrán más que atrave¬ 
sar las trescientas veintiuna pantallas 
que componen el juego y recoger las 
cinco coronas que se encuentran re¬ 
partidas por ellas. ¡Así de fácil!, pero co¬ 
mo se nos antoja un tanto largo y com¬ 


plejo, será mejor que empecemos ya la 
aventura. 


RECOGIENDO ANTES 
ALGUNAS COSILLAS 

Antes de nada hay que prepararse 
para la expedición, tomando algunos 
objetos que podrán sernos de gran uti¬ 
lidad en el futuro. Nuestra aparición en 
escena nos pone al mando de Head, en 
una pequeña habitación desde la cual 
se puede divisar una apetitosa liebre 


en lo alto de una escalera. Head debe 
aprender a subir por ella saltando de 
hueco en hueco de la misma. 

Después de hacer desaparecer de la 
circulación al conejo, podremos com¬ 
probar que Heels se encuentra al otro 
lado de la puerta, esperando a que lo 
pongamos en acción, aunque deberá 
aguardar unas pantallas más... 

Desde la habitación inicial nos tele 
transportamos, cruzamos la puerta que 
aparece ante nosotros y nos dejamos 
caer al vacío, para entrever abajo una 
puerta que nos llevará a un pasillo don¬ 
de el camino se divide en dos. Entran- 
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do por la primera, encontraremos a 
nuestro primer enemigo, el cual queda¬ 
rá desactivado empleando la palanca a 
tal fin, situada al fondo de la habitación. 
Cerca de allí se encuentra una cesta de 
donuts paralizadores. 

Por la otra entrada, hay otro pasillo 
con dos puertas, pero esta vez sigamos 
de frente. Allí hay una habitación con 
una salida que da a la estancia donde 
se encuentra una pistola. Para recoger¬ 
la no hay más que ir saltando de torre 
en torre. Volviendo por nuestros pro¬ 
pios pasos, cruzamos la puerta que an¬ 
tes dejamos pasar de largo, y dos habi¬ 
taciones más tarde llegaremos a una 
un tanto comprometida. Una repisa 
pende del aire enfrente de nosotros, la 
cual, al saltar sobre ella, desaparecerá 
y nos hará caer sobre el suelo radiacti¬ 
vo al menor fallo. 

Todo recto, al Norte, se encuentra 
una habitación con una reja. Detrás de 
ella se hallan algunos objetos intere¬ 
santes. El problema es cómo saltar la 
reja, pero podemos usar un método un 


tanto antiguo por si acaso cuela, a palo 
Iimpió, es decir, arremeter a empujones 
con la inocente reja. Por uno de los la¬ 
dos se abrirá una brecha (aparte de la 
de nuestra cabeza), tras lo cual no hay 
más que convencer a tiros al individuo 
que allí se encuentra para que se esté 
quieto y tranquilo y recoger lo que nos 
interese. 

Fuera de allí, por el segundo camino, 
encontramos algún que otro obstaculi- 
llo fácilmente solventable con habili¬ 
dad; valor, y al toro. Más allá, trataremos 
de convencer a otro individuo que la 
violencia no es el mejor camino para 
conseguir nuestras metas, a cuyo con 
vencimiento llegará con un buen dis¬ 
paro paralizante. Cerca de allí, un co¬ 
nejillo nos proporcionará inmunidad 
por algún tiempo. 

Por una puerta encontramos un ene¬ 
migo deambulando de un lado a otro 
de la habitación, por la otra una salida 
colocada a gran altura. Para sobrepa¬ 
sarla, debemos subir hasta la repisa 
con el ascensor, empujar tres cubos, y 


deslizados hasta debajo de la puerta, 
para utilizarlos como escalera. 

Continuando, llegamos hasta un 
precipicio. Abajo se encuentra nada 
más y nada menos que ila frutería!, pe¬ 
ro mira por donde hay por aquí un pe¬ 
queño conejo que nos aprovisionará 
de un par de unidades más de energía, 
que nunca vienen mal. Cerca.de allí, 
hay una habitación con un cubo. La mi¬ 
sión ha terminado por el momento, es 
el turno de Heels. 


RUMBO A LA FRUTERIA 

Gracias al botón de cambio nos po¬ 
nemos al mando de Heels. Empleando 
el transpodador llegamos hasta un su- 
persalto, que deberemos utilizar para 
cruzar la siguiente pueda. Tras ella, un 
ascensor nos llevará a una habitación, 
cuya pueda lateral permite alcanzar la 
maleta, objeto imprescindible en la 
aventura. Utilizando el mando a distan- 
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cia, llevamos al robot hasta el final de la 
habitación, ahora a la izquierda, para 
posteriormente empujar el ladrillo has¬ 
ta que esté a tiro de salto y podamos re¬ 
coger la codiciada maleta. 

Al salir de allí, ayudado por un blo¬ 
que, encontró un ascensor, y junto a él 
un individuo bastante pegadizo, contra 
el cual nuestra mejor arma es la veloci¬ 
dad. Arriba hallamos un pasillo, que 
curiosamente nos resulta familiar, co¬ 
mo si ya hubiéramos pasado antes por 
allí. Al final del largo pasadizo se en¬ 
cuentran más enemigos y un coneio 
que nos proporcionará supersaltos. 

Subiendo por el ascensor llegamos 
a una habitación con tres enemigos 
moviéndose de un lado a otro, pero fíja¬ 
te qué casualidad: hay una bola que 
empujándola choca nada más y nada 
menos contra una palanca paralizado¬ 
ra. Tras cruzar la puerta nos dejamos 
caer por el precipicio. 

Abajo hay dos puertas a gran altura 
y... cuatro bloques. Si no fuera por el ro¬ 
bot que anda incordiando por la habi¬ 
tación, nada sería más fácil que apilar 
los cuatro bloq ues en la puerta derecha 
y recoger el escudo que se encuentra 
al otro lado, en forma de conejo, des¬ 
pués de atravesar un camino de rodi¬ 
llos. Bajando a toda pastilla, para apro¬ 
vechar la invulnerabilidad, apilamos 
los cubos en la otra puerta y cruzamos 
el marco. 

Atravesando un pasillo, llegamos 
hasta un precipicio que te hará caer so¬ 
bre Head, pero como el juego no se lla¬ 
ma Heels over Head, deberás colocar 
al último sobre el primero. Bien acopla¬ 
dos, hay que salir de allí gracias al blo¬ 
que de la esquina, por la puerta de la 


derecha, aún no explorada. La verda¬ 
dera aventura comienza ahora. 


EN EL REINO DE SAFARI 

O de safari por el reino, es igual. 
Head y Heels, al unirse, habían unido 
sus equipos, y sus posibilidades de 
éxito se agrandaban. Pero el futuro les 
guardaba alguna que otra mala pasa¬ 
da... Manejando con el mando a distan¬ 
cia un robot, pasamos la habitación 
contigua saltando sobre él. 

Más allá, peligros de poca conside¬ 
ración, hasta encontrar algún que otro 
robot pululante, alérgico a los disparos 
de Head. Dirigiéndose hacia el Norte, 
topamos con otro enemigo, al que esta 
vez habrá que esquivar, para saltar 
posteriormente al vacío. 

Nos encontramos en una habitación 
con un ascensor y dos puertas. Por una 
de ellas, la presencia de Head produ¬ 
ce la desintegración de las escaleras 
de subida a otra puerta. Por la otra salí 
da, el problema es Heels. De nuevo los 
caminos de nuestros héroes se sepa¬ 
ran. 

Controlando a Head encontraremos 
un transportador que nos llevará a una 
habitación de una sola puerta. Tras ella, 
un par de saltos y alcanzaremos la si¬ 
guiente. En una habitación aparente¬ 
mente tranquila, dejaremos por un mo¬ 
mento a Head, pues Heels, en ese mis¬ 
mo momento, anda en apuros al saltar 
sobre dos baldosas fantasmas, que rá¬ 
pidamente se desintegran, aunque con 
reflejos es fácil saltar hasta recoger el 
conejo que nos proporciona diez su¬ 
persaltos. 


Continuaremos hasta una habitación 
con dos transportadores, uno de ellos 
encerrado entre rejas. Activando el 
otro, aparecemos en otro lugar donde 
cambiaremos de transportador para 
aparecer en la habitación anterior, y re¬ 
coger el conejo allí presente, para pos¬ 
teriormente teletransportarse de nuevo. 

Cruzando la puerta, continuemos 
hacia el Norte, luego al Oeste, y de nue¬ 
vo al Norte. Por allí hay un conejo con 
un escudo que nos podrá sacar de al¬ 
guna situación comprometida. Trans¬ 
portándose de nuevo apareció en una 
habitación cuya única salida llevaba 
hasta... Head... 

Nuevamente a caballo continuaron 
la aventura, hasta llegar a un lugar don¬ 
de unos bloques formaban una flecha 
en el suelo. Tomando el camino de la 
derecha, encontramos un transporta¬ 
dor que nos introdujo en pleno reino de 
Safari. Llegando a una habitación con 
dos caminos, era de nuevo el momento 
de separarse. 

Continuemos con Head hasta llegar 
a una gran habitación. Allí hemos de 
subir encima del bloque que hay enci¬ 
ma del robot y alcanzar la puerta que 
hay detrás de la verja. Por el camino de 
la izquierda, encontraremos más do- 
nuts paralizadores, vitales en algunos 
casos. Por la derecha, continuemos 
hasta hallar otra encrucijada. Ahora por 
la izquierda hasta llegar a la gran habi¬ 
tación. 

Empujando la bola contra uno de 
los cubos, saltando hasta la reja y al¬ 
canzando otra puerta, llegamos hasta 
una habitación con tres enemigos, pró¬ 
ximamente paralizados en sus panta¬ 
llas, y con la ayuda de un muelle sali- 
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mos de allí. Continuamos su camino 
hasta encontrar un interesante objeto 
en lo alto de una habitación pero, ¿qué 
estará haciendo Heels? 

Tomamos el mando en el lugar de la 
última separación. Recorremos tres ha¬ 
bitaciones, giramos a la derecha, atra¬ 
vesamos otras dos, hasta llegar a una 
habitación con una puerta a la derecha, 
ala cual llegamos saltando de bloque 
en bloque. Un par de robots más tarde, 
encontramos a Head. 

En la habitación contigua, usamos el 
robot manejado a distancia para em¬ 
pujar el bloque, y colocarlo a una dis¬ 
tancia razonable para ser saltada. Si¬ 
tuamos el robot cerca de la puerta y en 
dos saltos estamos allí, pero necesita¬ 
mos coger, al mismo tiempo que salta¬ 
mos, el bloque, para posteriormente 
colocarlo en la cabeza del robot y brin¬ 
car desde allí. 

Llegamos hasta una habitación con 
una puerta inalcanzable. Por la otra en¬ 
contramos un ascensor y un transpor¬ 
tador. Subiendo por el primero, atrave¬ 
samos la puerta de la habitación ante¬ 
rior. Nos lanzamos al vacío y detrás de 
la puerta se halla la corona del reino de 
Safari, en lo alto. Cogerla es otra histo¬ 
ria. 

Empujamos con un bloque un hueco 
que ha quedado; empujamos al robot 
con un bloque para que se mueva so¬ 
bre la segunda fila de bloques. Poste¬ 
riormente, subimos a la torrecilla, y des¬ 
de allí dejamos caer sobre el robot un 
bloque. Nos subimos encima de él y 
desde allí Head se encargará de tomar 
la corona. ¡Ya sólo quedan cuatro, áni¬ 
mo! 


EN EL REINO DE PENITENTIARY 

En la habitación de al lado emplea¬ 
mos el transportador hasta llegar de 
nuevo a la habitación de la flecha. Esta 
vez usamos la puerta de la izquierda y 
el transportador Atravesando la puerta, 
llegamos de nuevo a una división de 
caminos. 

Heels debe subir hasta encontrar 
una puerta Tras ella, se encuentra la 
habitación de la que saldrá con un blo¬ 
que oportunamente allí colocado. Al 
salir a la derecha, esperamos a Head. 
Este debe subir, al igual que Heels, 
hasta encontrarse de nuevo. Una vez 
unidos, subimos, pasamos por más ha¬ 


bitaciones hasta encontrar de nuevo 
dos caminos. Se trata de otra despedi¬ 
da. 

Heels, por la izquierda, encuentra un 
transportador, y tras activarlo, se ve en 
un lugar familiar para él. Salta hasta el 
otro transportador y llega a un lugar 
con una corona. Es momento de espe¬ 
rar a Head. 

Bajamos dos niveles (controlando a 
Head) y llegamos hasta la habitación 
donde se encuentra Heels. Este se en¬ 
cuentra encima de un emparedado. 
Colocamos a Head debajo de él, y 
Heels debe empujar el sandwich hasta 
que caiga encima de Head, y tras el 
bocata, él. Nos acercamos a un bloque, 
y lo dejamos encima de Head. Ahora 


colocamos todos los objetos encima 
de un bloque que se halla debajo de la 
corona, y Head, saltando desde Heels, 
alcanzará la segunda corona. 


LA CORONA DE EGYPTUS 

Con el transportador llegamos hasta 
la habitación de la flecha. Atravesando 
la puerta que señala ésta, corremos ha¬ 
cia la derecha y activamos el teletrans¬ 
portador. Apareceremos en el misterio¬ 
so reino de Egyptus. Atravesamos pan¬ 
tallas hasta llegar a una con dos puer¬ 
tas. Ahora a la izquierda y a seguir an¬ 
dando otras cuatro pantallas más. Un 
nuevo divorcio se avecina... 
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Head llegará hasta un teletransporta¬ 
dor y un ascensor. Colocándonos enci¬ 
ma del supersalto alcanzamos el piso 
superior, desde allí subimos dos pisos 
más y esperamos. Heels llegará pronto 
hasta allí. 

Llegamos hasta una habitación don¬ 
de se encuentra un conejo, que reco¬ 
gemos, naturalmente. Más allá baja¬ 
mos cuatro niveles, cruzamos dos pan¬ 
tallas, subimos un par de pisos, y acti¬ 
vamos el transportador. Tras él, la cuar¬ 
ta de las coronas. 

En primer lugar hay que quitar de la 
circulación a los mirones. Después tira¬ 
mos el bloque que hay pegado a la to- 
rreta, subimos a la repisa que ha que¬ 
dado libre, y dejamos el bloque para 
posteriormente saltar y recoger la coro¬ 
na. 


EL REINO DEL LIBRO 

Con el transportador llegamos a la 
habitación de la flecha y tomamos el 


camino de la izquierda. Allí, un trans¬ 
portador nos llevará al último de los 
mundos. Heels camina hacia la izquier¬ 
da, pasa dos pantallas, y gira a la iz¬ 
quierda, después a la derecha, y así to¬ 
do recto hasta que no puede continuar. 

Head debe atravesar cuatro habita¬ 
ciones, ahora a la derecha, siete más al 
frente, a la izquierda, de nuevo a la iz¬ 
quierda, y encuentra un ascensor que 
le subirá de piso. Camina evitando ro¬ 
bots y cae junto a Heels. 

Uno encima del otro, deben cruzar 
hasta cuatro habitaciones más, para 
posteriormente bajar dos pisos. Una 
habitación más y otra corona. Con los 
bloques la recogemos y nos dispone¬ 
mos a buscar la última de ellas. Subi¬ 
mos al piso de arriba y empleamos el 
transportador. 

En la habitación de la flecha, utiliza¬ 
mos el camino que señala ésta, y llega¬ 
mos hasta una nueva separación de 
nuestros compañeros de aventura. 
Heels cruza un par de habitaciones, 
ahora hacia la derecha, y encontramos 
un transportador, que usamos para lle¬ 



gar al último mundo. Pasamos de pan¬ 
talla y, usando el supersalto, brincamos 
hasta el suelo para esperar a Head. 

Este se encuentra atravesando dos 
pantallas, gira a la derecha, y encuentra 
a Heels. Ahora debemos tomar la puer¬ 
ta derecha para llegar a una habitación 
con una gran verja. Disparamos contra 
ésta para que se abra un hueco. Head 
pasa por éste, y desde allí a otro exis¬ 
tente, para empujar un bloque hasta el 
suelo. Heels pasa ayudado por éste y 
por Head. 

Cruzamos tres habitaciones más, y 
encontramos una habitación sin salida. 
Head debe introducirse debajo de los 
bloques explosivos y coger la últimade 
las coronas. Ahora sólo falta alcanzar la 
libertad llegando hasta Freedom. 


DE FREEDOM AL CIELO 

Volvemos sobre nuestros propios 
pasos y tomamos el camino por donde 
apareció Head en la habitación de el 
pasillo de bloques. Giramos hacia la 
derecha y recorremos pantallas hasta 
llegar a una habitación con una puerta 
alta. Sacudimos un disparo al robot, y 
empujando un bloque que ha caído al 
suelo, hace su aparición un ascensor, 
en el cual nos montamos. 

Subiendo al extremo derecho de la 
habitación, saltamos. Entramos en la 
puerta de la pantalla inferior y pasamos 
del robot que hay encerrado entre los 
bloques, y así hasta llegar a un trans¬ 
portador que nos llevará hasta el final 
de la aventura: Freedom la libertad... 
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FICHA TECNICA 



Nombre: HEAD OVER HEELS 
Precio: 875 ptas. 

Soporte: CASETE 
Modelo: 464,472,664 y 6128 
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Componentes, equipos, 
aplicación a ios ordenadores, 
radio, sonido, automóviles, 
video, televisión. .. 


TiTlT 


hMilr 

■J i 































S3BHHBHEBHI 


HEADER 8512 

Para establecer orden en los discos 
de doble densidad 


Hace algún tiempo publicamos un header para los discos de 
densidad normal. Ahora le toca el tumo a los que usualmente se 
utilizan en la segunda unidad: CF2DD. 


E l programa, ademas de presentar 
ordenados alfabéticamente todos 
los ficheros encontrados con sus 
características (dir/sys, rw/ro) permite 


mostrar, borrar y averiguar la longitud 
de éstos; listar el directorio completo y 
cambiar de disco. 

Al comenzar la ejecución, el progra¬ 


ma nos indica que introduzcamos un 
disco CF2DD (doble densidad) en la 
unidad B:. Después de seguir esta indi 
cación, pulsaremos una tecla. 

Para seleccionar un fichero determi 
nado, nos desplazaremos con las te¬ 
clas del cursor. Se muestran de 64 en 
64, y para acceder a los restantes se 
baja el cursor estando en el 64. Se re¬ 
trocede subiendo el cursor estando en 
el primer fichero de la pantalla. 

Las distintas opciones se invocan a 
través de su número correspondiente. 
En aquellas que escriben algo, se per¬ 
mite seleccionar la salida (pantalla o 
impresora) con las flechas izquierda- 
derecha y confirmando con RETURN o 
INTRO. 

La indicación de longitud es sólo vá¬ 
lida si el fichero es menor de 16K. La 
opción borrar emitirá un pitido si el fi¬ 
chero es RO. Estas son las únicas pre¬ 
cauciones para mantener los discos 
ordenados. 
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VERDUGO - TU MICRO AMSTRAD * 


4500 


2834 

4115 

2834 


10 FBM 

20 FBM • HBADER 8512 - 1087 

30 FBM •««*»•**•*•«*•••*»«•••*•**••***•**“*•*•• 

40 VIDTH 255 700 

50 DATA Mostrar, Bqrrar,Longitud,Canbio.Lista.Basic 
80 DBFSTR h 752 

70 haac=CHR*<27> ÍOIO 

B0 ho«a=ha®c+"B"+ha®c+“H" 1704 

00 DBF FU httt<x,y,ht)=hesc+“Y“+CHR*(32+x)+CHRS<32+y)+fat 3020 

100 he.off=ha«c+"f" 1257 

110 he. on=ha«c+"a“ 1182 

120 hpl=CHR*<7> B71 

130 DIM hí(256> 758 

140 PRUT base ¡ “ X" ; CHR# <32 > ¡ CHR* <32> ; CHR# <63) . CHR# < 121 > : 3700 

150 he.inv»haac+"p" 1285 

160 he. nor*ha«c+“q" 1288 

170 hx*CHR»a)+CHR*<8>+CHR*<30>+CHR»<31>+“123456“ 2872 

180 s=l 225 

100 hp(s)=CHR# (150)+STRIHG»(11,154)+CHR# <156 ) 2800 

200 GOSUB 1000 752 

210 hp(e) =hp(a)+CHR* < 140)+STRIHG# <10,32)+STRIHG» <2,140> 3680 

220 GOSUB 1000 752 

230 hp<s) =hp<®) +CHR# (140)+STRIHG» <11,32)+CHR» < 140 > 3221 

240 GOSUB 1000 752 

250 hp(a)=hp<*)+CHR# (140)+STRIHG# (10, 32)+STRIHG# (.2, 140 ) 3680 

260 GOSUB 1000 752 _ 

270 hp<s)= hpCs)+CHR*(147)+STRIHGS(5,154)+CHRS(158)+STRIBG» <5,154> +CHR»(153> 
4031 

280 GOSUB 1000 752 

200 hp(e)=hp(a> +CHR»<32)+STRIHG» <5,154)+CHR»(155)+STRIHG»<5.154) 4243 

300 GOSUB 1000 752 

310 s=2 226 

320 hp<s)=STRIHG»<2,32)+CHR*(150)+STRIHG*(O.154>+CHR»(156) 3786 

330 GOSUB 1000 752 

340 FGR a=l TO 2 811 

350 hp (s)= hp(a)+STRIBG*(2,32)+CHR»(140)+“:-+STRIBG*(7.32)+“:"+CHR»(140) 


360 GOSUB 1000 752 

380 hp*I)= hp(s^+CHRS(32)+CHR* ( 150)+CHF» ( 155 > +STRIHG* (0 ,154 ) +CHR*(155 > +CHR*(150) 
5085 

300 GOSUB 1000 752 

400 hp(s)=hp (e) +CHR*(140>+STRIBG*(11 . 321+CHR» (151) +CHR* (157) 3848 

410 GOSUB 1000 752 

420 hp(a> =hp( 8 > +CHR*(8)+CHRS(147)+STRIBG*(11, 154 ) +CHRS(153) 3800 

430 GOSUB 1000 752 

440 PRIBT heme 082 

450 GOSUB 1450 746 

460 OPTIOB FILES “b" 1362 

470 RBSBT 547 

480 PRIBT bou» 082 

400 hea=FIHD* (“*.»“, 1) : CO-1: GOSUB 1830 2300 

500 VHILE hae<>““ 1047 

510 hf <co)=STRIP»(h«a>+CHR*<32)+htl+"- , '+ht2 2016 

520 co=co+l 573 

530 PRIBT FB hat (0, 0.““) ; 1478 

540 PRIBT “Ficharos ancontrados: ";ce-1 3061 

550 PRIBT STRIP* (hea); SPACB*<3) 2307 

560 PRIBT" (“ ; htl; 5 ht2¡ “ )“ 1862 

570 hsa=FlBf)*(“». »’,co) : GOSUB 1830 2173 

580 VBBD 430 

500 PRIBT hssej-A" ; CHR*(13) ; SPACE*<8 > : 2608 

600 PRIBT hascj“A" j CHR»(13);“Clasificando...“ 3306 

610 ca=0 305 


620 FOR 8=1 TO ce-2 1066 

630 IF hf (a) >hf (a+1) THBB SVAP hf(a) . hf (a+1 ): ca=l 3271 

640 BBXT 447 

650 IF ca=l THEB 010 1095 

660 POR a=co TO 250 1070 

670 hf(a ) =SPACES( 10) 1102 

680 BBXT 447 

600 PRIBT boma 082 

700 ptr=0 451 

710 ptr2=l 502 

720 GOSUB 1880 753 

730 FOR a=l TO 0 815 

740 READ ha 825 

750 PRIBT FB hat(20+a,0.“” > ; 1076 

700 FRIBT a;ha 026 

770 BBXT 447 

780 PRIBT FB hat(20.40.bp(l> > 1700 

700 PRIBT FB hat(20. 80. hp <2) ) 1802 

800 GOSUB 1030 740 

810 FRIBT he.inv;hf<ptr+ptr2> ; be.ñor; 2064 

820 PRIBT he.off 1121 

%3C ha=IBPUT» ( 1 ) 088 

840 PRIBT he. on 1027 

850 IF IBSTRÍhx, ha)=0 THEB PRIBT hpi ; : GOTO 820 3447 

860 IF VAL (ha) >0 THEB 020 1508 

870 IF ha=CHR*<30> THEB IF ptr2<64 THEB GOSUB 1030:PRIBT hf (ptr+ptr2> ; : ptr2=ptr2 
+1:GOTO 800 ELSE IF ptr<102 THEB ptr=ptr+64:ptr2=l : G 
OSUB 1880: GOTO 800 11290 

880 IF ha=CHR* (31) THEB IF ptr2>l THEB GOSUE 1030:PRIBT hf(ptr+ptr2) ;: P tr2=ptr2- 
1: GOTO 800 ELSE IF ptr>0 THBB ptr=ptr-64:ptr2=64:GOS 
UB 1880: GOTO 800 11200 

800 IF ha=CHR»(l) THEB IF ptr2>16 THEB GOSUB 1030: PRIBT hf<ptr+ptr2> ¡: ptr2=ptr2- 
16: GOTO 800 6767 

000 IF ha*CHR»<6) THEB IF ptr2<40 THEB GOSUB 1030:PRIBT hf(ptr+ptr2> ¡: ptr2fptr2+ 

IB: GOTO 800 0774 

010 PRIBT hpi¡.GOTO 820 1500 

020 OB VAL(ha) GOTO 040,1100.1170.1310,1340,1430 2636 

030 PRIBT hpi;: GOTO 820 1500 

040 IF hf(ptr+ptr2>-SPACE*(10) THEB PRIBT hpi ;: GOTO 630 4101 

050 op=0: GOSUB 1060 IJ44 

060 ln=l 328 

070 IF op*0 THEB PRIBT boas 1052 

080 OPEB " 1“ , 1, LEFT* (hf (ptr+ptr2) , 12 V 2405 

000 VHILE FOT BOF(l)' 1318 

1000 ha= IBKEYS 842 

1010 LIBE IHPUT Rl.hlina 1640 

1020 hline2=STR*(ln>+“:"+CHR»<32) 2066 

1030 IF op=0 THEB PRIBT hlina2;hline ELSE LFRIHT hlina2;hlina 4047 

1040 IF ha<>"“ THEB ha=IBPUT»(l) 2017 


1050 

1060 

1070 

1080 


1000 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1100 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1200 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1300 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

1480 

1400 

1500 

1510 

1520 

1530 

1540 

1550 

1560 

1570 

1580 

1500 

1600 

1610 

1620 

1630 

1640 

1650 

1660 

1670 

1680 

1600 

1700 

1710 

1720 

1730 

1740 

1750 

1760 

1770 

1780 

1700 

1600 

1610 

1620 

1630 

1640 

1850 

1860 

1870 

1880 

1800 

1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1000 

2000 

2010 

2020 

2030 

2040 

2050 

2060 

2070 

2080 

2000 

2100 

2110 

2120 


ln=ln+l 580 

VEBD 430 
CLOSE 534 

IF op»0 THEB PRIBT “Fin da ficharo <...)":ha=IHPUT*(1)s 
RBSTORE:GOTO 600 5602 

GOTO 820 505 

IF hf< P tr+ptr2)-SPACE»<10> THEB FRIBT hpi;¡GOTO 830 
4101 

IF RIGHT*<hf<ptr+ptr2>,l)«“o“ THEB FRIBT hpi;:GOTO 830 4285 

PRIBT FB hat(30, 0, " " > ; "Borrar “;LEFT*(hf(ptr+ptr2),12);" <®/n>“ 
ha=IBPUTS <1> 088 

IF ha<>“s“ THEB PRIBT FB hat(30.0,SPACE*(25)>;:GOTO 630 4003 

KILL LEFT*(hf(ptr+ptr2),12) 2170 

FR4-BT be*e: R BSTO R E : GOTO 476 8466 

IF hf<ptr+ptr2>-SPACE»<10> THEB PRIBT hpi;:GOTO 830 4101 

op=0:GOSUB 1080 1144 

OPEB "I",1.LEFT*(hf(ptr+ptr2).12) 2405 

PRUT FB hat <28,0,“"); 1536 

PRIBT he.off; 1180 

lfila=LOF<l) 1036 

PRUT hf <ptr+ptr2) j " : ";lfila;" rae®, “ ; ROUHDClf lla/B, 1) ; “ k. “ ; 

IF op*l THBB LPRIHT hf <ptr+ptr2> ; “ : "¡lilla;" raes,-; 

ROUBD (1 f i 1 a/8, 1 > ; " k. 5760 

IF lflia>127 THBB PRIBT STRIBG*(17,8);“Mayor qua 16k“;SPACE*(5) 
CLOSE 534 
a*=IBPUT*(l) 020 

PRIBT be.on 1027 

PRIBT FH hat<28,0,SPACE*(42)> 2152 

GOTO 830 506 

RBSTORE 772 

ERASB hf:DIM hf(258> 1550 

GOTO 440 503 


1602 


1580 

1700 


op*0.GOSUB 1080 1144 

IF op*0 THEB PRIBT boma ELSE LPRIBT CHR*(15); 3637 

FOR a=l TO co-l 1065 

IF op*0 THBB PRIBT a;SPACE*(4-LHH(STR*(a) ) > ; ": 

hf<a),ELSB LPRIBT a ; SPACE*(4-LEB(STR*(a) )>; “ : “ ; hf(a) , 7667 

IF op=0 THEB IF a/3=IBT<a/3> THBB PRIBT 3028 
ha=IHXBY* B42 

IF ha<>“" THEB ha=IHPUT»<l) 2017 

BBXT 447 

IF op=0 THEB ha=IHPUT* < 1 ): RESTORE:GOTO 600 ELSH LPRIHT CHR*<18); 

:GOTO 830 5788 

PRIBT homa 082 

EBD 311 

PRIBT FB hat(10.30.““); 1578 

PRIBT CHR»(150); 1200 

PRIBT STRIBG»<20,154); 1602 

PRIBT CHR»(156) 1147 

POR a-1 TO 12 860 

PRIBT FH hat(a+10.30, ; 1718 

PRIBT CHR*(140);SPACB» <20); CHR»(140) 2508 

BBXT 447 

PRIBT FB hat <23, 30, ; 1582 

PRIBT CHR»(147); 1206 

PRIBT STRIHG*<20.154); 

PRIBT CHR»(153) 1144 

PRIBT FH hat(11,40, ; 

PRIBT CHR»(150);CHR*(156) 

FOR a=l TO 3 812 

PRIBT FH hat(a+11,40.STRIBG» <2. 140)) 2625 

BBXT 447 

PRIBT FH hat(15,40.“"); 1584 

PRIBT CHR»(147)¡CHR*(153) 1703 

PRIBT FH hat<16.30.""); 1503 

PRIBT CHR*(150)¡STRIBG»<2.154)¡CHR*(156) 2877 

PRIBT FB hat<17.30,"“); 1504 

PRIBT CHR»(140);SPACE*<2); CHR» < 140 ) ; 2600 

PRIBT FB hatC16.30.““); 1505 

PRIBT CHR»<147)¡STRIBG»<2.154) ; CHR»<153 ) 2880 

PRIBT FH hat(22 , 31 , “CF2DD") 1074 

FRIBT he.off 1121 

PRIBT FH hat<7.40,"B: “ > 1634 

PRIBT FB hat<6.40..) 1667 

PRIBT FB hat<0.40,SPACE»<2 ) ) 2103 

FOR a=l TO 200 007 

BBXT 447 

PRIBT FB hat(8,40.SPACE*(2) > 2102 

FRIBT FB hat<0,40,"* *“>; 1727 

IF IHXEY»<>“" THEB FRIBT he.on:RETURB 3165 

FOR a=l TO 500 OI O 

BBXT 447 

GOTO 1730 044 

hch=KID* <hea .11,1) 1354 

IF hchOSTRIP»(beh) THEB htl="eye" ELSE htl=“dlr“ 3044 

hch=MID»(h®a.10.1) 1353 

IF hchOSTRIP» <hch) THEB ht2=“ro" ELSE ht2=“rw“ 3734 

RETURB 672 

FOR a=l TO 64 867 

PRIBT FH hat <a- 16a <IHT< <a-l) /18) ) , IBT < (a-1) /16) *23, "*' ) ; 3561 

PRIBT STRIBG*(10,32) : STRIBG* <10.8);hf <a+ptr) ; 3520 

BBXT 447 

RETURB 072 

PRIBT FH hat <ptr2-16aIHT < (ptr2-l>/18> , IHT< <ptr2-l)/16)*23,""); 
PRIBT FH hat <ptr2-16aIHT< <ptr2-l>/16>.IHT<(ptr2-l)/16)*23,"") ; 
RETURB 672 

hp(e)=hp<«)+hasc+"B"+STHIHG* <13,8) 2570 

RETURB 672 

FRIBT he.off; 1180 

PRIBT FH hat <26,45+2iaop,“" ) ; 1008 

PRIBT - - - ; CHR*<10 ); STRIBG*<3, 8)¡SPACE*<3) 3238 

FOR a=l TO 100:BBXT 1411 

ha=IBKEYS 842 

IF ha=CHR»<6> ABD op=0 THEB GOSUB 2100: op=l : GOTO 1080 3866 

IF ha=CHRS(1> ABD op=l THEB GOSUB 2100:op=0:GOTO 1080 5061 

IF ba=CHRS(13) THEB GOSUB 2100;PRIBT he.on:RETURB 3000 

PRIBT FB hat(26.45+2iaop."“> ; 1008 

FRIBT STRIBG*<3,32) ; CHR*(10);STRIBG*<3,8) ; "““ 3522 
FOR a=l TO 100:HEXT 1411 

GOTO 1080 651 

PRIBT FH hat<26.45+21aop."“); 1008 

PRIBT SPACE»(3),CHR»(10);STRIBG»<3.8)¡SPACE»<3) 3565 

RETURB 872 


4535 


4740 


4802 


4365 

4365 
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MICROACCESORIOS 

PC 


Revisión de accesorios para el PC. 


Como complemento de la 
extensa gama de periféricos 
existentes en el mercado para 
el PC-1512, han ¡do 
apareciendo diferentes 
accesorios, de las más diversas 
utilidades, los cuales tienen por 
cometido facilitar algunas 
labores, anejas a la propia 
explotación del ordenador. 



R esulta casi imposible enumerar _ 

la extensa variedad de accesorios 
PC presentes en el mercado, de¬ 
bido sin duda a la proliferación de este 
tipo de ordenadores, aparecidos en el 
entorno de la pequeña y mediana em¬ 
presa, asi como en circuios profesiona¬ 
les. 

Sin embargo, es nuestro deseo rese¬ 
ñar, aunque de forma breve, algunos |HH| aP> 

de los que han causado mayor reper¬ 
cusión en el mercado, bien por su difu¬ 



sión o interés peculiar. 


ARCHIVADOR DE SEGURIDAD 
PARA DISCOS 



El archivador de seguridad para dis¬ 
cos de 5 1/4” ACCODATA, constituye 
una verdadera solución, a bajo precio, 
para el almacenamiento y clasificación 
de la biblioteca de discos flexibles del 
sistema. 

El archivador está construido en ma¬ 
terial plástico con cubierta transparen- 
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te, al tiempo que viene dotado de la co¬ 
rrespondiente cerradura de seguridad, 
de la que se incluye un juego de dos 
llaves por unidad. 

En cuanto a estructura interna, es ca¬ 
paz de almacenar un total de 60 discos, 
organizados dentro de hasta cinco 
apartados diferentes, constituidos por 
separadores plásticos verticales eti¬ 
quetadles. 

Básicamente, la ventaja de este sis¬ 
tema de almacenamiento reside en la 
protección de la intimidad de la infor¬ 
mación, gracias a su cerradura de se¬ 
guridad, al tiempo que facilita la labor 
de búsqueda de un determinado disco, 
dentro del archivo. 

Por otro lado, la protección física del 
soporte magnético almacenado con 
este medio, es mucho mayor que la 
que ofrece la simple funda protectora 
del disco, aún guardando dentro de su 
. caja de cartón, por estar dotado el ar¬ 
chivador de una mayor defensa frente 
al polvo, principal agente contaminante 
de este medio. 


CORTADOR AUTOMÁTICO 

DE GUIAS P ARA PAPEL _ 

CONTINUO ■■■■■■■■ 

Quizá una de las labores más tedio¬ 
sas, previas al archivo de listados obte¬ 
nidos sobre el papel continuo, es la de 
eliminar la guía perforada del margen 
derecho del papel, y aún en ocasiones, 
dependiendo de las necesidades, am¬ 
bas guías. 

La mayoría de las personas conside¬ 
ran esta labor, aunque imprescindible, 
como verdaderamente tediosa. En 
cualquier caso, no cabe duda que se 
trata de una imperdonable pérdida de 
tiempo, que ocupa a una persona en 
una tarea poco productiva y durante 
demasiado tiempo. 

Para atajar este problema, existe ya 
en el mercado un dispositivo de tipo 
mecánico, construido en plástico ro¬ 
busto de alta cal idad, el cual nos perm i- 
te reducir, de forma considerable, el 
tiempo destinado a esta labor, a la vez 
que disminuye notablemente el can¬ 
sancio del encargado de tan poco de¬ 
seable cometido. 

El cortador viene dotado de una go¬ 
ma antideslizante en su zona inferior, 
similar a la que incorporan muchos or¬ 
denadores e impresoras, para facilitar 
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la sujección del útil durante la opera¬ 
ción de separación. 

Por otro lado, y para no perder deta¬ 
lle, se contemplan dos posiciones dife¬ 
rentes de acción, correspondientes a 
los dos anchos estándar de bandas 
perforadas: 15 mm y 12,7 mm (1/2"). 

Por último, cabe decir que el fabri¬ 
cante ha diseñado el cortador de forma 
que resulte eficaz para papeles de un 
tamaño no superior a las 12”, al tiempo 
que para un bloque de hojas no mayor 
de 25 por operación. 


KIT DE LIMPIEZA 
DE PANTALLAS 

Cualquier pantalla de ordenador se 
convierte, por el simple hecho de po¬ 
nerla en funcionamiento, en un verda¬ 
dero imán para el polvo en suspensión 
que la rodea. Este fenómeno, nada de¬ 
seable por supuesto, se debe a la ge¬ 
neración de electricidad estática, y es 
el causante de que las pantallas no ter¬ 
minen nunca de verse libres de la su- 
cíedad. 

Para reducir este problema a su 
mínima expresión, disponemos del kit 
de limpieza compuesto por un spray 
anti-estático, y un juego de gamuzas 
especiales. Con su uso diario, o aún se¬ 
manal, conseguimos limpiar la pantalla 
de partículas extrañas, al tiempo que 
cubrirla de una delgada película semi¬ 
conductora, la cual reduce los posterio¬ 
res efectos derivados del funciona¬ 
miento del monitor o receptor de TV. 


SOPORTE PARA IMPRES ORA 
DE 80 COLUMNAS 

Uno de los problemas que plantea la 
instalación de una impresora para un 
ordenador personal es, sin duda, la ne¬ 
cesidad de ubicarla sobre una mesa 
especial, la cual permita el libre recorri¬ 
do de entrada y salida del papel. 

Sin embargo, y debido a que mu¬ 
chas impresoras se montan sobre me¬ 
sas de despacho convencionales, sur¬ 
ge el problema de la correcta coloca¬ 
ción del papel, problema que además 
se agrava cuando empleamos diferen¬ 
tes tipos de formularios. 

El soporte para impresora de 80 co¬ 
lumnas permite solucionar de forma fá¬ 
cil este problema, reuniendo al tiempo 


unas cualidades muy interesantes. 

En primer lugar, el soporte, construi¬ 
do en plástico de color crema, dispone 
de cuatro módulos combinados, en¬ 
cargados cada uno de ellos de una fun¬ 
ción concreta. 

El primer módulo, el que ocupa el ni¬ 
vel inferior, facilita el espacio necesario 
para albergar unas 200 hojas de papel 
continuo, listas para entrar en la impre¬ 
sora. 



El segundo módulo, colocado inme¬ 
diatamente encima, está destinado a 
alojar la impresora propiamente dicha, 
con ayuda de unas tiras de goma anti¬ 
deslizante, para mejor fijación de la 
máquina sobre su soporte. 

El tercer módulo, colocado justo a la 
entrada del papel a la impresora, con¬ 
tiene 3 varillas horizontales destinadas 
a sujetar la primera hoja de otros tantos 
formularios preimpresos diferentes; 


Archivador 

4.500 

Cortador de arrastre 

2.950 

Kit de limpieza 

850 

Soporte de impresora 

6.650 

Kit de ampliación 

8.400 

Plataforma orientable 

4.400 

Filtro de contraste 

4.950 

Regla de posiciones 

680 

Fundas protectoras 

3.600 

Cable Centronics 

3.900 

Gafas COMPUT-IREX 

7.900 

Cajas papel 1.000 hojas 

2.600 


* Todos los precios incluyen el IVA. 

















TUM/CRO 


SS AMSTRAD 

j 



para facilitar el cambio rápido de uno a 
otro. 

Por ultimo, en el cuarto módulo colo- 
. cado en un nivel superior y detrás de la 

impresora, se encuentra la zona desti¬ 
nada a almacenar el bloque de papel a 
1 la salida de la impresión. 

I Como características complementa¬ 
rias, diremos que no se precisa herra¬ 
mienta alguna para efectuar el montaje, 
al tiempo que los soportes vienen dota¬ 
dos de unas guías, para canalizar los 
cables de tensión y recepción de datos 
de la impresora. 

KIT DE AMPLIACION _ 

DE MEMORIA 1 

A pesar de que la memoria inicial de 
512 Kbytes del PC-1512, es más que 
suficiente para una mayoría de aplica¬ 
ciones, no es menos cierto que algunos 


programas comerciales, sobre todo 
herramientas de productividad, requie¬ 
ren de una memoria más amplia. 

Para solucionar este problema de 
forma fácil y económica, sólo con 
ser un poco «manitas», está disponible 
el kit de ampliación a 640 Kbytes. Este 
kit está compuesto por un conjunto de 
18 chips 8607 RAM, los cuales facilitan 
en su conjunto los 128 Kbytes, adicio¬ 
nales. 


PLATAFORMA ORIENTABLE 
PARA MONITOR 

Para manejar la ergonomía del pues¬ 
to de trabajo, está presente en el merca¬ 
do una plataforma soporte de monitor, 
que al tiempo que orientable, permite 
regular el ángulo formado porta panta¬ 
lla y la visual del operador, de forma 
que la lectura se haga más cómoda. 


Para conseguir este efecto, la plata¬ 
forma viene dotada de una superficie 
antideslizante, encargada de sostener 
firmemente el monitor en planos incli¬ 
nados de relativa pronunciación. 


FILTRO DE CONTRASTE M 

Después de varias tentativas de di¬ 
seños de filtros para pantallas de orde¬ 
nador, la mayoría de ellos, construidos 
a partir de una malla de nylon más o 
menos tupida, se ha llegado por fin a 
una solución definitiva, o al menos más 
perfeccionada. 

El filtro de contraste en cuestión, se 
coloca de forma fácil, gracias a unas 
bandas adhesivas que incorpora en 
sus extremos, consiguiendo reducir de 
forma notable el lógico cansancio pro¬ 
ducido después de una sesión prolon¬ 
gada frente a la pantalla del ordenador. 
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Entre sus propiedades, podemos 
decir que es capaz de absorver el 62% 
de la radiación producida por la panta¬ 
lla, aumentando los contrastes, elimi 
nando reflejos y consiguiendo una me¬ 
jor definición de caracteres y colores. 

Por otro lado, a su sencilla coloca¬ 
ción es preciso añadir su fácil limpieza: 
la misma indicada para la propia pan¬ 
talla del ordenador. 


OTROS ACCESORIOS 

Existe una regla de posiciones, la 
cual permite la medición de líneas y co¬ 
lumnas de impresora, dotada además 
en su interior de la simbología habitual 
en el diseño de diagramas de flujo. De 
esta forma, en su conjunto, se convierte 
en una herramienta eficaz de ayuda a la 
codificación de aplicaciones. 

El juego de fundas protectoras AMS- 
TRAD, adaptable al modelo PCW-8256 
además de al PC-1512, facilita un me¬ 
dio de protección contra el polvo, mien 
tras el ordenador no se encuentra co¬ 
nectado. 

El cable de conexión PC-impresora, 
del tipo CENTRONICS, facilita la cone¬ 
xión de este tipo de periférico a nuestro 
ordenador. Este accesorio, es indis 
pensable ya que no se suministra habi- 
tualmente con la venta de una impreso¬ 
ra. 

Las gafas COMPUT-IREX disponen 
de un ocular prácticamente irrompible, 
reduciendo el deslumbramiento cau¬ 
sado por las pantallas, y filtrando la luz 
azul considerada como mayor causan¬ 
te de la fatiga visual. 

Estas gafas, de las que existen varios 
modelos de monturas, eliminan las ra¬ 
diaciones residuales emitidas por una 
pantalla (100% radiación ultravioleta y 
90% infrarrojos). 

Por último, para atender a las necesi¬ 
dades de papel continuo más persona¬ 
les, se han creado cajas de papel de 
1.000 hojas, a un precio asequible, sin 
obligar a adquirir las de tamaño están 
dar de 2.500, para los usos reducidos 
de salidas impresas. 

Todos los accesorios mencionados, 
pueden ser adquiridos en: 


MASTER COMPUTER, S.A. 

Cea Bermúdez, 72 
28040 MADRID 

Tel.: (91) 244 59 36/244 59 43 
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• SE HA formado un Club de 
usuarios Amstrad en Barcelona. 
Disponemos de las últimas nove¬ 
dades en Soft (juegos y utilidades), 
así como de una amplia biblioteca 
donde podrás encontrar instruc¬ 
ciones de programas. Dirígete a 
Apdo. de Correos 12005. 08080 
Barcelona. 

• VENDO Star Mouse CPC 6128 
disco por 7.000 ptas. Llamar al Tel.: 
(93) 323 2 3 28, ó escribir a José 
Mato Turón. Aribau, 33, 2.°, 1. a . 
Barcelona. 

• COMPRO/cambio/vendo pro¬ 
gramas PCW 8256, con instruccio¬ 
nes. Angel Fdez. O'Donnell, 49. 
28009 Madrid. Tel. 274 47 07. 

• ME GUSTARIA saber si hay al¬ 
gún Club de amigos del ordenador 
en Burgos. Mercedes Palacios. 
Eladio Perlado, 57, 9." D. Burgos. 

• ATENCION! Nuevo Club de 
usuarios Amstrad. Sólo cambia¬ 
mos en disco. Excepción en Gero¬ 
na. Llamar al Tel.: (972) 23 42 06. 
Xevi. 

• VENDO Spectrum Plus. Disco- 
bery 1, Monitor. Regalos. Todo 
ello por 60.000 ptas. José Solé. 
Tel.: (976) 43 19 11. 

• VENDO ordenador CPC 464 
monitor color, ampliación de me¬ 
moria a 128 Kb, unidad de disco, 
16 discos, 16 cintas, cable para im¬ 
presora, mmialtavoces con amplifi¬ 
cador para sonidos estéreo, gran 
cantidad de programas comercia¬ 
les como: AMSWORD. PASCAL. 
DBASE, COBOL. C LOGO, etc.. 
Juegos: FPILOT, Ajedrez y muchos 
mas. Así como gran cantidad de 
revistas y manuales. Llamar al Tel 
(985) 14 3 5 51 Gijon (Asturias). Jo¬ 
sé o Sra. 

• VENDO Amstrad CPC 6128. In¬ 
cluyo accesorios y programas. Lia 
mar al tel (956) 89 05 51 (de 6,30 
en adelante). Asencio Márquez. 

• LIDERES en |uegos del merca 
do con lo ultimo desean intercam¬ 


biar juegos para cinta y disco. Lo 
mejor. Luis Fabián Saura. Isaac Pe¬ 
ral, 3. T. Pacheco (Murcia). 

• COMPRARIA instrucciones en 
castellano del MS-COBOL de Mi 
crosoft o del CBASIC Compilen 
César Fernández. La Vega, 42, 3.° 
deha. Mieres (Asturias). Tel.: (985) 
46 79 53. 

• VENDO Spectrum+, con cas¬ 
sette, joystick e interface. Además 
regalo, a quien me lo compre, 200 
juegos. Llamar al Tel.: 208 58 29 
para más información (preguntar 
por César). 

• BUSCO, compro toda clase de 
copiones, o los cambiaría por jue¬ 
gos últimas marcas. Xavier Glías 
Castell. S. Padro, 86, 2.°, 2. a . Tel.: 
662 41 62. 08850 Barna. 

• VENDO smtetizador de voz en 
castellano de MFIT Ingenieros. 
Compatible con CPC 464, 664, 
6128. Por 5.500 ptas. Interesados 
dirigirse a César Fernández. La Ve¬ 
ga, 42, 3° deha. Mieres (Asturias). 
Tel.: (985) 46 79 53. 

• INTERECAMBIO en disco más 
de 750 programas. Todos comer¬ 
ciales. Sólocontestaré a quien envie 
su lista. (Sólo disco). María Dome- 
nech Mollá. P.° de la Cuba, 30, 3.° 
deha. 02005 Albacete. 

• CAMBIO programas para Ams¬ 
trad. Dirigirise a Abel Iturriiaga. Ap¬ 
do. de Correos 117. Haro (La Rió¬ 
la). 

• CAMBIO programas CPC 6128 
en disco. Tengo muchos. Escribir a 
Neus Mato. Aribau, 33, 2°, 1. a . 
08011 Barcelona. 

• VENDO Amstrad CPC 6128, 
monitor verde, incluyo disco Silicio 
256K. Además mucho software. 
José Manuel Quer. Borrell y Solere, 
6. 08034 Barcelona. Tel.: (93) 
204 33 06. 

• CAMBIO/compro programas 
de simulación que corran en un 
PCW 8512. Contestaré a todos. 
Tengo muchos programas. Igna¬ 


cio Cardelus. Buigas, 31-33, 4.°. 
08017 Barcelona. Tel.: 205 04 78. 

• VENDO Amstrad PCW 8512 
comprado el 24-1-87 (aún con ga¬ 
rantía oficial), por no tener tiempo 
para usarlo, con DBASEII, 3-D 
Clock Chess, MS-COBOL, Dr. 
DRAW, Dr. GRAPH, algunos discos 
con copias de seguridad, etc. Po¬ 
co uso. Enseñaría a usar MS-CO 
BOL Precio a convenir (aprox. 
140.000 ptas ). Llamar al Tel.: (93) 
241 37 79 (de 9,15 de la noche en 
adelante). J. Carlos Alvarez. 

• SI quieres tener los últimos pro¬ 
gramas, sean juegos o utilidades 
(CPC-PCW), los trucos o ideas más 
ingeniosas, únete a nuestro Club. 
Envía tus datos, si puede ser ad¬ 
juntando número de teléfono a 
Sergi. Apdo. de Correos 12005. 
08080 Barcelona. 

• COMPRO, vendo o cambio pro¬ 
gramas para CPC 6128, todo tipo: 
de gestión y |uegos. Preguntar por 
MAO, a partir de las 15,30 en el Tel.: 
(988) 24 71 04, ó bien escribir a Jo¬ 
sé Manuel Mao Piñeiro. Avda. de 
Buenos Aires, 38, 5.° A. 32004 
Orense. 

• USUARIO de CPC 6128 desea 
contactar con algún usuario de 
PCW que le deje copiar su Mallard 
Basic. A cambio, yo le dejaría co¬ 
piar las utilidades que acompañan 
al CP/M Plus en mi modelo o le 
prestaría otro servicio con mi orde¬ 
nador. Interesados llamar al Tel.: 
(91) 274 98 17. Preguntar por Car¬ 
los. 

• CAMBIO desinteresadamente 
programas para CPC 6128. Poseo 
unos 200 Interesados llamar al 
Tel.: (918) 22 89 26. Miguel Cenal- 
mor. 

• DESEARIA contactar con usua¬ 
rios de Amstrad CPC 6128 para in 
tercambiar juegos como Green 
Beret, Bomb Jack, Yie Are Kung Fu, 
Hipersports, PingPong, Ghost «N» 
Goblins, Friday 13. Snooker. Ca¬ 


melo! Warrios, Batman, 1942, 
Commando, Strartrick, Harrier 
Atack, Matchday, West Bank, Zo¬ 
rro, Sorcery, Dan Daré, La Brisca, 
Cobre, Fhligther Pilo!, Rolando en 
el tiempo, etc. Si puede ser por es¬ 
tos: Break Thru, Goonies, Rambo, 
Movie, Spy Hunter, Basket Ball, As- 
terix, Decathlon, Supertest, Beach 
Flead II, Army Moves, Game Over, 
Paper Boy, Miami Vice, Street 
Flawk, Stainles Steel, Jack then 
Nipper, Samantha Fox, Desert Fox, 
etc. (sólo unidad de disco) Three 
Blakes, Flacker II. Dandy. 

• VENDO Amstrad CPC 464 co- 
los, más compilador Pascal (con li¬ 
bro de instrucciones), Editor En¬ 
samblador (con instrucciones en 
español). Gráficos Tortuga Pascal, 
cinta de Jie Ar Kung-Fu. 75.000 
ptas. Perfecto estado. Interesados 
escribir a Pedro José Navarro Na¬ 
varro. Rector José Loustau, 14, 7.° 
B, edif. Celeste. 30006 Murcia. O 
llamar al Tel.: (968) 24 49 21. 

• VENDO lote completo de pro¬ 
gramas en cassettes originales de 
las siguientes revistas: Your Com¬ 
puter n. os 1, 2, 3. Todo Sobre el 
Amstrad n. os 1, 3, 4, 5, 6. 7, 8 y 9. 
Data Amstrad n.° 1 Turbo Amstrad 
n.° 1. Burbujo y Editorial Grupo jn.° 
1 Todos para Amstrad CPC, total 
15 cassettes, precio único lote 
completo 3.000 ptas. Gastos de 
envío incluidos. Eduardo Campo- 
manes. Lancia, 9, 7.° D. 24004 
León, Tel.: (987) 20 28 14. 

• CLUB de Usuarios «Amstrad 
Euskadi». Intercambia tus progra¬ 
mas a través de nuestro Club asi 
como tus ideas y comentarios y los 
problemas que te surgen con tu or¬ 
denador iEscribenos y enviamos 
tu lista de programas! Te indicare 
mos los nuestros y las bases del 
Club. Club Amstrad Euskadi Apdo 
de Correos 169 20300 Irun (Giu 
puzcoa). 
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Evolución de los sistemas de almacenamiento. 


Con el desarrollo de los ordenadores, día a día han cobrado mayor importancia los sistemas 
de almacenamiento masivo de información. En este artículo, efectuaremos un recorrido alrededor 
de los medios actuales y de la tecnología que en breve irrumpirá en el mercado: los discos ópticos. 




E l primer medio de almacenamien¬ 
to masivo utilizado fue la cinta 
magnética. Los diferentes fabri¬ 
cantes no llegaron por entonces a un 
acuerdo, y lo que se convertía en for¬ 


mato estándar un año, al siguiente ya 
estaba anticuado. 

Las densidades de grabación au¬ 
mentaron paulatinamente desde 1 555 
bits por pulgada a 800, 1600 y 6250 


bpi. Pero estos avances pagaron el 
precio de la no compatibilidad entre 
unos y otros sistemas. Los incrementos 
en la densidad lineal de grabación no 
remediaron la limitación de las cintas 




















magnéticas, que seguían manteniendo 
un tiempo medio de acceso de doce¬ 
nas de segundos hasta encontrar un fi¬ 
chero determinado. Incluso con varias 
unidades trabajando simultáneamen¬ 
te, no era posible conseguir el acceso 
aleatorio requerido ya por los ordena¬ 
dores de finales de los años cincuenta. 

Los largos tiempos de acceso en las 
cintas motivaron el desarrollo de los 
discos magnéticos (los denominados 
discos «duros» o «rígidos»). En ellos, 
mediante un pequeño movimiento de 
las zonas mecánicas del sistema, es 
posible situar la cabeza de lectura y es¬ 
critura sobre cualquier punto de la su¬ 
perficie del disco, motivo por el cual los 
tiempos de espera disminuyen consi¬ 
derablemente. 

Los tiempos de acceso a la informa¬ 
ción almacenada rebajaron el listón a 
menos de un segundo, circunstancia 
que condujo directamente al desarrollo 
de sistemas de gestión de la denomi¬ 
nada memoria virtual. En ella, los datos 
que no se necesitan inmediatamente 
en la memoria principal son paginados 
(descargados) al disco, y posterior¬ 
mente recuperados de éste cuando son 
requeridos para su proceso. 

Sin embargo, durante su primera 
evolución (al comienzo de los años 60) 
los discos magnéticos funcionaban 
principalmente como buffers (almace¬ 
namientos temporales de datos y pro¬ 
gramas), mientras que las transferen¬ 
cias principales seguían realizándose 
entre la memoria y las unidades de cin¬ 
ta magnética. 

DISCOS _ 

Y DISKETES 

La aparición de los discos flexibles 
(floppy disks) supuso el descubrimien¬ 
to de un medio de bajo costo para al¬ 
macenar y transferir programas a la 
unidad principal. Además de acceso 
directo a la información, también son 
extraíbles y permiten el intercambio de 
la información entre unos y otros orde¬ 
nadores provistos del mismo sistema 
operativo, y que los traten en el mismo 
formato. 

El siguiente escalón en la evolución 
de los sistemas de almacenamiento 
fueron los discos con tecnología Win¬ 
chester, los cuales almacenaban y 
transferían los datos a una velocidad 


muy superior a la alcanzada en aquella 
época mediante otros sistemas. 

Por este motivo, dada la alta veloci¬ 
dad de los discos Winchester, las co¬ 
pias de seguridad en los microordena¬ 
dores personales normalmente se rea¬ 
lizan en discos flexibles y no en cinta 
mag nética, puesto que este último aña¬ 
dido supone un dispositivo caro del 
que parece no obtenerse un resultado 
inmediato. 

Sin embargo, con la aparición a prin¬ 
cipio de los años ochenta de los prime¬ 
ros micros domésticos, es cuando la 
cinta magnética (basada en el popular 
cassette) adquirió una mayor impor¬ 
tancia, dado el bajo costo que supone 
al usuario el almacenamiento de pro¬ 
gramas en este sistema, si bien, a cam¬ 
bio de una exasperante lentitud y baja 
fiabilidad, en muchas ocasiones. 


ALMACENAMIENTO OPTICO ■ 

Durante los últimos quince años, una 
nueva familia de dispositivos de alma¬ 
cenamiento masivo ha hecho su apari¬ 
ción, basando su funcionamiento en el 
manejo de la luz más que en los siste¬ 
mas magnéticos: los discos ópticos. 

Los primeros discos ópticos comer¬ 
ciales aparecieron en el mercado en 
1978, y se empleaban principalmente 
para almacenar programas de televi¬ 
sión. Basados en un sistema denomi¬ 
nado LaserVisión, almacenaban una 
hora de programación en cada una de 
las caras de un disco de 12”. 

Su densidad de grabación era cien¬ 
tos de veces superior a la de un disco 
flexible y decenas de veces más densa 
que la de cualquier disco Winchester. 
En ellos, era posible grabar 25.000 bits 
por pulgada, o lo que es lo mismo, diez 
veces la densidad presente en los dis¬ 
cos magnéticos actuales. 


Y LLEGO EL COMPACT DISCH 

La alta densidad de grabación y el 
fácil intercambio entre los discos desa¬ 
rrollados por LaserVisión, generaron el 
interés investigador de otros fabrican¬ 
tes, para posibilitar su uso como medio 
de almacenamiento de datos digitales 
como los manejados en los ordenado¬ 
res. El resultado de todo ello, fue la apa¬ 
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rición de un disco óptico compacto 
(desarrollado por Sony) que permitía 
almacenar la información codificada 
digitalmente. 

Los Compact Disck (CDs) son capa¬ 
ces de almacenar 74 minutos de un 
programa de audio con una altisima 
calidad y todo ello en tan sólo una su¬ 
perficie de doce centímetros. Hoy en 
día, con la reducción en precio deestos 
sistemas, la mayoría de las cadenas de 
música convencionales los incorporan 
para mejorar sus prestaciones, y aun¬ 
que paradójico, nos encontramos en 
las puertas de lo que podríamos deno¬ 
minar alta fidelidad informática. 


cd-rom 

El éxito de los CD, supuso la intro¬ 
ducción de estos dispositivos como 
medios de almacenamiento de sólo 
lectura (CD-ROM). Cada uno de estos 
discos almacena alrededor de 550 me- 
gabytes de datos con una tasa de error 
inferior a los 10 billones de accesos. 

Dentro de poco tiempo, quizás los 
lectores de Compact Disc, estarán ins¬ 
talados en la mayoría de los microorde¬ 
nadores personales, de la misma for¬ 
ma que hoy encontramos en éstos las 
unidades de disco flexible. 


DISCOS OPTICO S DE LECTURA- 
ESCRITURA 

Después de un largo período de ges¬ 
tación, los discos ópticos de lectura/es¬ 
critura aparecieron en 1983 como pro¬ 
ductos comerciales. Esta primera ge¬ 
neración empleaba discos de 12” ca¬ 
paces de almacenar alrededor de 
1000 Mbytes en su superficie. No obs¬ 
tante su precio y su gran tamaño hacen 
que todavía estén algo lejos de los mi¬ 
cros personales. 

Estos discos pueden ser grabados 
una sola vez (lo cual significa que cual¬ 
quier pista puede ser una vez escrita, 
leída cuantas veces se quiera, pero no 
alterada). 


TECNOLOGIA HOY 
Y MAÑANA 

Efectuemos un recorrido alrededor 
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de la tecnología actual en sistemas de 
almacenamiento masivo y aventure¬ 
mos el futuro para cada una de ellas. 

Los discos flexibles y las cintas mag¬ 
néticas basan sus características de 
funcionamiento en el contacto de la ca¬ 
beza con el soporte. Los disketes fue¬ 
ron concebidos originalmente para 
cargar los programas en la unidad 
principal y no necesariamente para re¬ 
sistir demasiadas pasadas. 

Están presentes como medio princi¬ 
pal de almacenamiento en la mayoría 
de los microordenadores, lo cual supo 
ne que la baja fricción y la protección 
contra los agentes exteriores son ca¬ 
racterísticas muy importantes en estos 
dispositivos. 

Los discos flexibles de alta calidad 
cuentan en la actualidad con superfi 
cíes cuidadosamente pulidas y están 
adecuadamente protegidos para ga- 
rantizar la ausencia de partículas que 
puedan deteriorarlos. Los cabezales de 
las unidadesque los manejan, están fa¬ 
bricados a base de duras ferritas, y pro¬ 
tegidos con materiales cerámicos. 

Los discos de 3 1/2” emplean una 
rígida envoltura plástica que impide su 
deterioro al manejarlos. De esta forma, es 
imposible doblarlos, o que el polvo am¬ 
biente llegue a la superficie magnética. 

Otra categoría de discos flexibles 
son los denominados discos de Ber- 
nouilli (basan su funcionamiento en el 
efecto físico que lleva este nombre). En 
ellos, las cabezas «vuelan» sobre la su¬ 
perficie y no entran en contacto nunca 
con ella, lo cual garantiza una larga vi¬ 
da del soporte magnético. 

Los resultados utilizando estos siste¬ 
mas son francamente buenos, puesto 
que son capaces de almacenar aproxi¬ 
madamente 20 Mbytes de información 
y mantener unos tiempos de acceso 
comparables a los del mejor Winches¬ 
ter, aunque eso sí, pagando el precio 
de ser no extraíbles e intercambiables 
entre unos y otros sistemas. 


DISCOS RIGIDOS 


En los discos rígidos las cabezas de 
lectura/escritura tampoco entran en 
contacto con la superficie del disco (o 
discos, puesto q ue lo normal es que es¬ 
té formado por varios superpuestos). 
Ambos medios se encuentran separa¬ 
dos por las corrientes de aire que se 






















producen durante el giro del sistema. 
Esta característica se traduce en au¬ 
sencia de desgaste y por tanto, larga vi¬ 
da del mecanismo. 

Sin embargo, el espacio entre la ca¬ 
beza y el disco debe estar limitado por 
la separación de los bits sobre la pista. 
Así, las altas densidades se traducen 
en pequeñas separaciones. 

Hoy en día, las unidades de alto ren-' 
dimiento mantienen espacios del or¬ 
den de la miera. Sin embargo, este ta¬ 
maño es superior al de las partículas de 
polvo, incluso al de las procedentes del 
humo del tabaco. Por ello, para que el 
rendimiento de estos sistemas sea sufi¬ 
cientemente fiable, se require una ab¬ 
soluta limpieza y aislamiento del am¬ 
biente exterior. Es por lo que aparecen 
encapsulados en sólidos protectores. 

En la actualidad no se han encontra¬ 
do soluciones aerodinámicas que per¬ 
mitan aumentar suficientemente la 
densidad de grabación en los discos 
rígidos. Por ello, para conseguir supe¬ 
riores capacidades de almacenamien¬ 
to, las nuevas tecnologías apuntan ha¬ 
cia los discos ópticos. 


DISCOS OPTICOS ¡HHI 

Haciendo referencia a su constitu¬ 
ción física, un disco óptico está formado 
por tres capas superpuestas de distinto 
material y con diversas funciones. 

La primera es una gruesa capa de 
material plástico que da soporte a las 
otras dos. La segunda, es una película 
reflectante formada a partir de diversas 
aleaciones metálicas, que se encarga 
de almacenar la información propia¬ 


mente. Finalmente, un tercer extracto 
de material transparente, cubre la capa 
metálica con objeto de protegerla y evi¬ 
tar daños físicos sobre ella. 

En el interior de la unidad, el disco gi¬ 
ra a una velocidad elevada y la infor¬ 
mación se encuentra registrada en una 
sola espiral que cubre la superficie del 
mismo. Cuando un láser semiconduc¬ 
tor de baja potencia incide sobre la su¬ 
perficie del disco, vaporiza la capa me¬ 
tálica en los puntos de contacto con el 
haz luminoso. Este es el sistema segui¬ 
do durante la operación de escritura. 

La lectura de información se efectúa 
con ayuda de otro haz láser de menor 
potencia asistido por un detector lumi¬ 
noso, es decir, en aquellas zonas gra¬ 
badas anteriormente el rayo no se refle¬ 
jará y el detector no recibirá señal algu¬ 
na. Por el contrario, si la superficie me¬ 
tálica no ha sufrido alteración el fotode- 
tector recibirá el impacto del haz lumi¬ 
noso. 

De esta manera, es posible decodifi¬ 
car los unos y ceros binarios como la 
presencia o ausencia de pequeñas 
perforaciones sobre la superficie del 
disco, aunque en la realidad estos sis¬ 
temas utilizan para ello mecanismos 
muy sofisticados. 

Puesto que en ningún momento 
existe contacto entre la cabeza de lec¬ 
tura/escritura y la superficie del disco, 
la fiabilidad de estos sistemas de alma¬ 
cenamiento es prácticamente total. Di¬ 
cho en términos fácilmente comprensi¬ 
bles, la seguridad que ofrecen estos 
soportes sería equivalente a encontrar 
un sólo bit erróneo entre aproximada¬ 
mente 300 millones de discos flexibles 
de 360 Kbytes. 
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UNA MIRADA AL FUTURO 

Por el momento, la inclusión de lecto¬ 
res ópticos dentro del entorno de la in¬ 
formática personal no ha alcanzado un 
volumen apreciable, debido a dos mo¬ 
tivos principales: uno, el importante de¬ 
sembolso económico inicial que supo¬ 
ne adquirir uno de estos dispositivos (a 
pesar de su alta capacidad de almace¬ 
namiento) y por otra parte, la imposibili¬ 
dad de manejarlos como otros medios 
convencionales que permiten la lec¬ 
tura o escritura del soporte cuantas ve¬ 
ces se quiera. 

Ciertamente, un sistema óptico de 
lectura y escritura en el sentido conven¬ 
cional, proporcionaría una óptima 
combinación entre la alta velocidad de 
acceso de los sistemas Winchester y 
los dispositivos magnéticos para efec¬ 
tuar copias de seguridad, aunque tal 
vez, en nuestros días, sea aún prematu¬ 
ro plantearse la aceptación que ten¬ 
drán en el futuro estos sistemas. 

Si la tecnología en discos rígidos es 
capaz de ofrecer a corto plazo capaci¬ 
dades de almacenamiento compara¬ 
bles a la de los sistemas ópticos, será 
difícil que estos últimos desbanquen a 
los primeros, al menos en un plazo bre¬ 
ve de tiempo. 

Durante la próxima década la aplica¬ 
ción de tecnologías de almacenamien¬ 
to masivo combinadas, provocará, a 
priori, una importante disminución en 
el coste de estos sistemas y facilitará el 
acceso y manejo de enormes bases de 
datos para multitud de aplicaciones, ya 
sea en el terreno comercial, en el de las 
comunicaciones o en la Informática 
personal. 
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OPERACION CAMBIO 
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VALORAMOS TU AMSTRAD ► CPC 464 

40.000 ptas. 

; 


CPC 6128 

70.000 ptas. 



PCW 8256 

70.000 ptas. 



EN LA COMPRA DE UN PCW 8512 

100.000 ptas. 
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^ NUEVO ORDENADOR Teléf. (91) 416 13 02 (de 4.30 a 8.30) j 
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DECISIONES 



Entre las instrucciones BASIC, existen una serie de estructuras 
que permiten tomar una decisión, en función del resultado 
obtenido tras procesar una determinada condición. Las líneas que 
las contienen se denominan sentencias de bifurcación, y 
constituyen uno de los recursos más interesantes de este lenguaje. 


A unque la idea de bifurcación 
condicional resulta bastante in¬ 
tuitiva (ir hacia un lado u otro, 
según se cumpla o no una condición 
prefijada), lo cierto es que al situarse 
frente al ordenador y decidirse a pro¬ 
gramar, la situación puede complicar¬ 
se bastante. 

Normalmente, tomar una decisión 
entre dos posibles alternativas, no ofre¬ 
ce muchos problemas (rara vez el or¬ 
denador nos pone entre la espada y la 
pared). Sin embargo, sí debemos es¬ 


coger entre un numeroso grupo, la co¬ 
dificación necesaria aumentará en su 
complejidad. Es más, muchas veces 
no estamos en situapión de afirmar, 
que el grupo de condiciones planteado 
cubra todas las posibles alternativas 
que en ese instante del proceso debe 
afrontar el programa. Una solución a 
estos problemas pasa por el análisis 
detallado de lo que realmente quere¬ 
mos conseguir, y del manejo de sen¬ 
tencias BASIC, IF-THEN-ELSE. Veamos 
que posibilidades ofrecen. 


OPERACIONES 

CONDICIONALES 

Una operación condicional implica 
la elección entre dos alternativas plan¬ 
teadas por un condicionante que deter¬ 
mina la decisión a tomar. Por ejemplo, 
llegado a este punto nos planteamos la 
siguiente pregunta: ¿Nos interesa el 
artículo? 

Si la respuesta es afirmativa, toma¬ 
mos la decisión de continuar leyéndo¬ 
lo. Por el contrario, si la musa inspirado¬ 
ra del redactor estaba de vacaciones el 
día que lo escribió, mejor sera dejarlo y 
continuar con otra sección de la revista 
(Nota del autor: Todavía soy joven y de 
algo hay que vivir. No enviéis queias, 
por favor; el Jefe de Redacción nunca 
me lo perdonaría). 

Tras las oportunas aclaraciones para 
conservar el empleo y el sueldo, con- 













ruM/CRO 

SS AMSTRAD 

-»-- ---- - 


viene puntualizar un aspecto importan¬ 
te de las instrucciones condicionales: 
SI la condición se cumple, ENTONCES 
tomamos una acción concreta (conti¬ 
nuar leyendo). 

Génericamente una linea BASIC ten 
drá el siguiente aspecto: 

IF <condición> THEN <acción> 

Es más, en el ejemplo propuesto, de¬ 
cidimos que si el artículo no era de 
nuestro interés, continuaríamos con 
otra sección de la revista. Esta situación 
la soluciona la instrucción ELSE (en ca¬ 
so contrario, traducida al castellano). 
Con todo ello, el esquema completo 
quedaría: 

IF <condición> TFtEN <acción-1> 
ELSE <acción-2> 

El parámetro ELSE es opcional, es de¬ 
cir, cuando se incluye, si no se cumple 
la condición se ejecuta la acción que le 
sigue. Si la sentencia solamente consta 
del grupo IF THEN, en caso de fallar la 
condición, el control de programa es 
cedido a la siguiente línea de éste. 

La figura adjunta recibe el nombre 
de diagrama de flujo y constituye una 
buena herramienta en el proceso y di¬ 
seño de programas, puesto que de una 
forma gráfica nos permite visualizar la 
secuencia de operaciones que realiza¬ 
rá el programa en cada caso, se cum¬ 
pla o no la condición planteada. 


OPERADORES RELACIONALES 

Lo más normal dentro de una intruc- 
ción condicional situada en un pro¬ 
grama, es que la condición evalúe si se 
cumple o no una determinada relación 
entre dos conceptos numéricos o alfa- 
numéricos. Sentencias de este tipo son 
los siguientes ejemplos: 

IF A=1 THEN B=B+A ELSE B=B—A 
IF A < 100 THEN A=A+1 
IFA$=“SI” THEN PRINT “CONTINUAR” 

Por sí solas, en realidad no significan 
nada y nuestro objetivo es mostrar que 
la condición, para ser cierta, obliga en 
el primer caso a que la variable numéri¬ 
ca A valga 1, sea menor que 100 en el 
segundo, y en el tercero, para que se 
escriba «CONTINUAR» es imprescin¬ 
dible que A$ contenga la cadena SI. 

Los operadores relaciónales que 
BASIC maneja y que por tanto, pueden 


incluirse dentro de la condición a eva¬ 
luar, son los siguientes: 

= igual 
> mayor que 
< menor que 
>= mayor o igual que 
<= menor o igual que 
<> distinto de 


CONDICIONES COMPUESTAS 

Durante el desarrollo de programas, 
lo habitual al plantearse una linea de 
decisión, es que sean un grupo de con¬ 
diciones encadenadas las que una vez 
evaluadas, conduzcan al algoritmo a 
tomar la acción especificada en la ins¬ 
trucción. 

Para combinarlas podemos utilizar 
los operadores lógicos que BASIC po¬ 
ne a nuestra disposición. Se trata de los 
siguientes: 

AND: para que la evaluación final re 
suite verdadera es imprescindible que 
sean ciertas las dos premisas relacio 
nadas. Por ejemplo la instrucción: 

IF A%>1 AND A%<—100 



THEN <acción-1> ELSE <acción-2> 
implica que la acción-1 solamente se 
llevará a cabo cuando el numero alma¬ 
cenado en la variable A% (el sufijo % 
implica que la variable tiene valor ente¬ 
ro), esté comprendido entre 2 y 100 
Cualquier otro valor por encima o por 
debajo conducirá al proceso de la ac- 
ción-2. 

OR: su concurso establece que bas¬ 
ta el cumplimiento de una de las dos 
premisas seleccionadas para que sea 
válida la condición; la acción situada 
tras THEN también se ejecuta si ambas 
son verdaderas. 

NOT: es la negación lógica, es decir, 
niega la premisa situada inmediata¬ 
mente a continuación. Por ejemplo, una 
manera de expresar que dos números 
son diferentes es: 

NOT (A=B) 

Precisando más: en el Locomotive 
BASIC del CPC si ejecutamos la ins¬ 
trucción PRINT NOT (A~B) siendo am¬ 
bos valores idénticos, el resultado ob¬ 
tenido es 0, mientras que si son diferen 
tes es — 1. 

XOR: realiza la operación lógica «OR 
exclusivo», es decir, conduce hacia un 
resultado verdadero cuando una de las 
dos premisas relacionadas es cierta, 
pero no las dos al mismo tiempo. Natu¬ 
ralmente, si las dos son falsas, el resul 
tado también lo es. 


EN BUSC A DEL TRANSBORDO 
PERDIDO 

Para ilustrar la forma en que el orde¬ 
nador toma decisiones hemos diseña¬ 
do un programa titulado «METRO», 
cuya misión consiste en determinar el 
camino óptimo entre dos estaciones de 
la red metropolitana, en función del nú¬ 
mero de transbordos que estemos dis¬ 
puestos a realizar. 

En el menú principal se presentan 
las opciones de gestión de ficheros, 
aunque en primera instancia, debere¬ 
mos seleccionar «CREAR» para dar de 
alta cada línea con sus correspondien¬ 
tes estaciones. 

Para ello, es necesario señalar el 
nombre de la base de datos que forma¬ 
rá la red, el número de líneas que la 
componen, el de estaciones de la linea 
más larga, el nombre atribuido a cada 
una de éstas y su longitud, y finalmente, 
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la denominación de cada una de las 
estaciones. 

Una vez suministrados al ordenador 
todos estos datos, debemos proceder 
a grabarlos en cinta o disco mediante 
la opción «GRABAR» del menú de ges¬ 
tión de la base de datos. 

En cuanto a la manera de trabajar del 
programa, es cónveniente puntualizar 
que no tiene en cuenta la distancia de 
separación entre cada una de las esta¬ 
ciones de la red, sino el número de és¬ 
tas y los cruces (transbordos) necesa¬ 
rios para obtener el camino óptimo. 


Cuanto menor sea el valor definido en 
este parámetro, más rápida será la 
respuesta del programa (siempre que 
exista solución). 

Además, el programa no tiene cono¬ 
cimiento de la situación de las estacio¬ 
nes sobre la red, sino únicamente la 
línea a la cual pertenecen. Teniendo en 
cuenta este detalle, su comportamiento 
es bastante eficaz. 

En los listados que acompañan al 
artículo, además de las correspondien¬ 
tes versiones para cualquier modelo 
CPC o PCW, se incluyen todos los da¬ 


tos referentes a la red del metropolitano 
madrileño, que nos ha servido de prue¬ 
ba para verificar el correcto funciona¬ 
miento del programa. 

Pero lo más importante, al margen 
de esta aplicación práctica que podria 
adaptarse a cualquier otro problema 
de transportes, es la presencia de las 
instrucciones condicionales dentro de 
la estructura decisoria del programa. 
Son las que al fin y al cabo se encargan 
de gestionar y buscar una solución, 
dentro del árbol de decisión que forma 
toda la red. 
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12 m*»CHR*i 27)+"f " ¡ ac*=CHR$<27)+"e" -PRINT m*:r ls*=CHR*i 27)+"E"+CHR*l27)+"H" :0F 
R FN LOCATE *1 , y)=CHR*«.27 )+“Y"+CHR*i 32+ )+CHR*«.324> ) ¡pg*=CHR*i 27) + " -" :gr*=CHR*i 
27)+"y" 

20 PRINT pg*,‘Us* 

30 PRINT FN LOCATE *<8. 31);:PRlNT "MENU PRINCIPAL" 

40 PRINT:PRINT 

50 PRINT TAE« 24 )" 1 - GtS-TION DE LA PASE DE. LATOS" 

60 PRINT 

70 PRINT TAPC24 V2 - CONSUL TA LE UN FRuBLEMA" 

80 PRINT 

80 PRINT TAE¡C24)"3 - SALIDA DE PROGRAMA" 

100 x*=INI EY* 


110 

120 
130 
140 
150 
1ÍO 
170 
160 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
OTO 
230 
300 
310 
320 
330 
340 
350 
360 
37 O 


IR x*s"l“ OR * 
ON VALÍxt) GOTO 
PRINT Us* 

PRINT FN LOCATE 
PRINT ¡PRINT 
PRINT TAB<28)"1 
PRINT 

F'RINT TAP«28»'*¿ 
PRINT 

PRINT TAR:( 28) "3 
PRINT 

PRINT TARI- 28» "4 
x*=INkEY* 


"3" THEN 100 
130,1040,1640 

*<8.25).¡PRINT 

- CREACION** 

- CARGA" 

- GRA6ACION" 

- RETORNO Al. 


GESTION LE LA 


MENU PRINCIPAL* 


PASE CiE LATOS" 


IR x$<"l" OR >■■%■ "4" THEN 230 
CN VAUxíJ GOTO 260,750 .340. 2Ci 
PRINT Us* 

PRINT ac: INRUT NOMBRE PARA LA RASE LE DATOS"; nombre*: PRINT in*¡ 

IF LENCnombre* )»0 OR L.ENC nombre* ) 12 THEN F'RINT "NOMSRE INC»3RRECT0"CHR*< 7) G 


PRINT 

PRINT ar*;: INPUT " ? NUMERO LE L INEAS"; lineas: PRINT int; 

IF lineas 1 THEN 130 
1 1 neas=INT < 1 1 neasi 
F'RINT 

F'RINT ac»; ¡INPUT "^MAXIMA l UNGI TUL LE LINEA" ; longi»a> ¡FRINT in*¡ 
IF longmax< 1 THEN 130 
1ongma x* I NT 1 1 ongma x ) 

PRINT 


380 

390 

400 

410 

420 

430 

440 

460 

460 

470 

*<a 

480 

490 

600 

510 

520 

530 

S40 

560 

560 

670 

580 

590 

600 

610 

620 


640 

650 


LIM red*< 1 incas, 1 enema > 

F'RINT STR ING*C §0. " *" J 
DIM l»n*<lineas) 

FÜR 1 = 1 TÜ lineas 

PRINT ac*¡.PRINT "'NUMERE DE LA LINEA" iINPUT lin*'l > ¡FRINT m»; 

F'RINT 
NEX 7 

F'RINT STRING8C80. "V ) 

FÜR i=l Tü lineas 

PRINT "^LONGITUD LE "lm*íi)" " . PRINT ac*; . INPUT a: F'RINT ín»; : red*í i ,0)=--TR 

) 

PRINT 

NEXT 

F'RINT STRIN6*<80,"4" ) 

FÜR 1=1 TÚ lineas 
PRINT "LINEA. "lirtíU 
F'RINT PRINT 

F[IR j = 1 Tü VAL. < r ed*( i, O) ) 

PRINT ac*; .‘PRINT "? Nombre de la estar ion" j; : INPUT reoli i. 11 .PRINT mi; 

PRINT 

NEXT 

FRINT¡FRINT 

NEXT 

PRINT kls* 

PRINT "RED: " nombre* 

PRINT¡FRINT 
FOR 1=1 TO lineas 
FRINT "LINEA: "lin*CH 
PRINT 


660 

670 

680 

690 

700 

710 

720 

730 

740 

760 

760 

770 

780 

790 


FÜR )=1 TO VAHred*t 1 , 0)1 
PRINT red*<i,j) 

NEXT 

PRINT¡PRINT 

NEXT 

PRINT "PULSA UNA TECLA PARA CONTINUAR" 

WHILE INKEY*="";WENO 

db=l 

GOTO 130 

FRINT kls* 

IF db=Ü THEN 830 

PRINT "ESTA EN MEMfiRIA L.A RED "nombre* 
PRINT 

PRINT "?DESEA BORRAR ESTA RED" CS/Ni" 


800 : *=UFFER'*i LINFEY*): IF * >"S" ANO y.%- "N" THEN 800 
810 IF x*="N" THEN 130 
820 ERASE red*, 1 in*:db=0 

830 FRINT ac»;¡FRINT:INPUT"? NOMBRE DE LA RED”;nombre*:FRINT in*¡: IF LENt nombre*) 
=0 OR LENCnombre*) 12 THEN 820 

840 FRINT¡FRINT¡OREN" I",1,nombre*:INPUT MI ,1 meas:INPUT MI, longmax ¡DIM redil line 
as,longmax), Un*(lmeas) 

850 FOR i=l TO lineas ¡INPUT MI . 1 m*i. i ) ¡NEXT 

S60 FCiR i=l TO lineas 

870 PRINT "LINEA: "1 in*t i)¡FRINT 

880 INPUT MI , red*C 1,0) 

890 FCiR j= 1 TÜ VAL ( red* C i ,0) t 
900 INPUT M1,red* (i, j ) 

910 PRINT redil i.j) 

920 NEXT¡PRINT¡NEXT 
930 CLOSE ¡ dt*= 1 ¡ GOTO 130 
340 FRINT L ls* 

950 FRINT "GRABANDO LA RED "nombre*¡PRINT¡FRINT 
960 0PEN"Ü",1, nombre* 

370 FRINT MI .lineas¡FRINT MI, longmax 

980 FOR i=l TO lineas 'FRINT MI.1m*<i )¡NEXT 

990 FCR i=l TO lineas 

1000 PRINT "LINEA: "1 in*i i i‘FRINT¡FRINT Ml.red*íi,0> 

1010 FOR j=l TO VAL'red*' i .O) > ¡F'RINT #1. redil i. j ):FRINT redSu.jJ 
1020 NEXT.FRINT¡NEXT 
1030 CLOSE¡GOTO 130 

1040 FRINT Us* 

1060 IF db=0 THEN FRINT "NO HAY 8ASE DE DATOS EN MEMORIA"¡GOTO 1610 

1060 PRINT ac*,: INPUT -^ESTACION DE SALIDA"¡s*:PRINT i n*;: s*=UP'PER*i s* i 

1070 FCiR i = l TO lineas 

1080 FOR j=l TO VALCred*« i.O)J 

1090 IF red*<i, j )=s* THEN ls=i ¡es=j¡GOTO 1120 

1100 NEXT i,i 

1110 PRINT¡FRINT "NO CONOZCO ESA ESTACION"¡FRINT CHR*<7 i‘GOTO 1060 
1120 FRINT 

1130 FRINT ar*¡: INPUT ‘^ESTACION DE DESTINO" ¡d*: PRINT in*¡ :d*=UF‘PER*i d* » 

1140 FOR 1=1 TO lineas 

1160 FÜR j=l TO VAL( >ed*( i.O)) 

1160 IF red*<i,j »=d* THEN ld=i ¡ed=j ¡GOTO 119C) 

1170 NEXT j,i 

1180 PRINT ¡FRINT "NO CONOZCO ESA ESTAC IC>N" ¡FRINT CHR*i 7) ¡GOTO 1130 
1190 PR INI 

1200 FRINT ac*¡ . INFüT '* 7 MAx IMü TRANSBüRLO" ; trans ¡PRINT m*¡ 

1210 FRINl 

l-í‘20 IF s*=d* THEN FRINT "NO SE PRODUCE MOVIMIENTO ¡GOTO 1610 
1230 DIM c*' 500,4) 

1 240 puntero~0: 1ong=J 

125<.> c*< 1 ,Oí=STR*<0) ¡c*( 1, 1 )=STR*í ls): c*i 1.2)=STR'*i es >. c*( 1, 3)=STR*tO): c»< 1 , 4 )=" 
1260 Fuintero=F'untero+l 

127o la=VAL<c*Cpuntero, 1 > <. ea=VAL( c*< puntero. 2) » 

1280 IF red*( la,ea>=d* THEN 1490 
1290 add=o 

1300 mi=l ¡mf=l meas: IF VALIc*( puntero,O) >=t r»ns AND puntero l THEN mi=la¡mf=la 

1310 FÜR i=mi Tü mf 

1320 FOR j=l TÜ VALi red* ii,0i> 

1 3 30 IF red* u , j i > red* < 1 a, ea) THtN 1 460 

1340 IF i=la AND VAL'c*( puntero.3))=-l THEN 1400 

1350 IF j>=VALí redil i.O») THEN 1400 

1360 mc=l .'FÜR 1 = 1 TO long:IF i=VAúCc*Ck , 1) ) AND j+1=VAl.i c*(k ,2) > THEN k=long¡ ín 
c=0 

i37C> NEXT ‘ IF mc=0 THEN 1400 

1 380 long=long+l: add=add+l' c*> long,0 *=c * i puntero, o) : c*( long. 1 >=S7R*< i) : c * >. long, 2 
)=STR*< j+1 ) ¡c*( long, 3)=STR*í+l ». c*» long, 4>=c*<puntero,4)+STR*íadd > 
l>90 IF i >- la ANL puntero -1 THEN c*( long,0)=STR*iVAL(c*< puntero, 0) ) + l> 

140) IF l=la ANO VAL<c*ípuntero,3))=+l THEN 1460 
1410 IF j<= 1 THEN 1460 

1420 mc=l ¡FOR k=l TO long.’IF i=VALic*ik 1)) AND j-l=VAL< c*tl 2) » THEN l=long.in 
c=0 

1430 NEXT¡IF inc=0 THEN 1460 

1440 lono=long+l:add=add+l:c*<long, O >=c*<puntero, 0) ¡c*í long,l)=STR*íi■ ¡c*( long, 2 
>=STR*íj-1>:c*ílong,3^=STR*í -1). c*llong,4>=c*í puntero. 4)+STR*i add) 

1450 IF i< la AND puntero . 1 THEN c*( long, 0)=STR*l VAn c*( puntero,0) »1 ) 

1460 NEXT j,i 

1470 IF puntero-; long THEN 1262» 

1480 PRINT¡PRINT "NO HA SIDO FUSIBLE ENCONTRAR lA SÜLUCION" ¡GOTO 1600 
1490 PRINT kls* 

1600 FRINT "EL TRAYECTO E6‘"¡FRINT 

1510 PRINT red*CVAL<c*i 1,1) ), VALI c*C 1.2»i .» 

1 S20 mi = 1: mf=2: mft*= 1 

1530 mfb=INSTR(mf,c*ípuntero,4), " ") 

1540 IF mfb=0 THEN FRINT d*‘GOTO 1600 
155C> FOR j=mi TO long 

1560 IF LEFT*ic*C j,4«,mfb»+" "=LEFT*i c*‘. puntero, 4 ) .mfb) THEN FRINT red* (VALÍ c*( j 

















ruM/cfío 

E30AMSTRAD 


,1)),VALtc*» j ,2)))! wi=3+l! j=long 
1570 NEXT 
1580 mf=rnf b+1 

1590 GOTO 1530 
1600 ERASE c * 

1610 PRINT¡PRINT "pUL5.fi UNA TECLA RARA CONTINUAR" 
1620 WHIL.E INKEY*=" " ¡ WENO 
1650 GOTO 20 
1640 FRINT t:ls* 

1650 FR'INT ac*:FRINT gr*:E'ND 


10 REH METRO $ FERNANDO LOPEZ MARTINEZ 1987 * CK 484/47 2/664/8128 
20 M006 1 

30 LOCATE 13,8¡PRINT "MENU PRINCIPAL" 

40 FRINT¡FRINT 

50 FRINT TAE:<4>" 16ESTICN DE LA EfiSt DE DATOS" 

60 PRINT 

70 FRINT TAB<4)"2.- CONSULTA DE UN FROBLEMA" 

80 FRINT 

90 FRINT T AE¡ < 4 )”3 - SALIDA DE PROGRAMA" 

100 »:*=INKEY* 

110 IF x*<"l" OR >.*>"3" THEN 100 
120 ON VAL O-:*) GOTO 130.1120,1720 
1» MÚDE 1 

140 LOCATE 6, 7 ¡FRINT "6E5TICN DE LA FASE DE DATOS" 

150 FRINT¡FRINT 

160 FRINT TAB<6'“1 - CREACION” 

170 FRINT 

1|D FRINT TAB(€-)"2 - CARGA" 

190 FRINT 

200 FRINT T ABC 6) "3 - GRADACION" 

210 PRINT 

220 FRINT TAF(6>"4 - RETORNO AL MENU PRINCIPAL" 

230 x*=INK£Y* 

240 IF x*»"l" OR THE'N 230 

250 ON VAL(x*> GOTO 260,830.1020.20 
260 MÜDE 2 

270 IF db-0 THEN 350 

¿80 FRINT "ESTA EN MEMORIA LA RED "nombre* 

230 PRINT 

300 PRINT "- DESEA FORRAR ESTA REO 7 " 

310 :<*=UPFER*< INKEY*):IF ■<* "S" ANO <*>"N" THEN -310 

320 IF x*="N" THEN 130 
33l) ERASE red*, 1 1 n* ¡ db=0 
340 FRINT 

360 INFUT NOMBRE RARA LA BASE DE DATOS"; nombre* 

360 IF LEN»nombre* i =0 OH LENÍ nombre*) 12 THEN FRINT "NOMBRE 1 NCORRECTÜ"CHE*» 7) ¡ G 
OTO 350 

370 FRINT 

:«] INFUT "^NUMERO DE LINEAS";lineas 
390 IF I meas 1 THEN IX) 

400 lineas=INT< 1 ineas.» 

410 FRINT 

420 INFUT "fMAXIMA LONGITUD DE LINEA"; lor>gn.a 
430 IF longmaxí 1 THEN 130 
440 longruax-INT »longnia < > 

450 FRINT 

460 DIM red* C11 reas. 1 ongnta ’ 

470 FRINT STRING*(80,) 

480 DIM lin*ilineas) 

490 FOR 1=1 Tú lineas 

500 FRINT "VNOMERE DE LA LINEA" i; : INF'UT Unid) 

510 FRINT 
520 NEXT 

520 FRINT STRIN6V80. "*" ) 

540 FOR i=l TO lineas 

550 PRINT "-LONGITUD DE "l»n*íi)* ¡INFUT a¡ red*» i,0)=STR*<*) 

560 FRINT . 

570 NEXT 

SEO FRINT STRING*»£0, *" > 

590 FOR 1=1 TO lineas 
600 FRINT "LINEA- “lin*ti . 

610 PRINT¡FRINT 

620 FOR j=l TO VALtred*» i,OU 

€30 PRINT " 7 Nombre de la estación"j INFUT red*»i,j) 

€40 FRINT 
65)3 NEXT 
660 FRINT ¡FRINT 
670 NEXT 
680 CLS 

€■90 FRINT "RED: "nombre* 

700 FRINT¡PRINT 
710 FuR 1=1 TO lineas 
720 FRINT "LINEA: "liniíu 
730 FRINT 

740 FOR j=l TO VALI red* < i,0.ji 
750 FRINT red*< i j > 

760 NEXT 

770 FRINT ¡FRINT 

780 NEXT 

790 FRINT "FULSA UNA TECLA PARA CONTINUAR" 

800 UHILE INKEY*=‘ ,rt ¡WFJNO 
810 db=l 
820 GOTO 130 


8-30 MÚDE 2 

840 IF db=0 THEN 910 

850 PRINT "ESTA EN MEMORIA LA RED "nombre* 

S60 FRINT 

870 FRINT " 7 DESEA BORRAR ESTA RED 7 " 

3*0 x*=UPF'ER*< INKEY* ): IF x*< "S" AND x* >"N" THEN 880 
890 IF x*="N" THEN 130 
900 ERASE red*,lin*¡db=u 

910 FRINT¡ INFUT”? NOMERE DE LA RED" ; nombre*: IF LEN(nombre*)=0 OR LENínombre**> 12 
THEN 900 

920 FR1 NT ¡ FRI NT ¡ OFENI N nombre* ¡ 1 NF'UT #9, 1 1 neas: I NPUT #9, 1 ongmax ¡DIM r ed* 11 1 neas , I o 
ngmax ) ,lin*(lineas) 

930 FOR i=l Tú lineas:INFUT#9,lin*( i) ¡NEXT 

940 FOR i=l TO lineas 

950 FRINT “L INEA¡ ”lin*ü)¡ FRINT 

960 1NPUTW9,red*» i,O) 

970 FOR j=l TO VAL*red* *1,0)) 

980 lNPUT#9,red*< i, j> 

990 FRINT redtd.j) 

1000 NEXT¡FRINT¡NEXT 
1010 C LOSE IN: dt.=1 :GOTO 130 
1020 MÚDE 2 

1030 FRINT "GRABANDO LA RED "nombre*¡ FRINT¡FRINT 
1040 ÜPENOUT nombre* 

1050 FR1NT#9,lineas: FR INT#9. 1 ongmax 

1060 FOR i=l TO lineas:FRINT#9.lin*<i>.NEXT 

1070 FCR i=l TO lineas 

1080 PRINT "LINEA: "1in*( i): FRINT ¡FRINTUS. red*» i,0) 

1090 FOR j=l TO VAL»red*» i ,0) > ¡FRINT #9, red*C i, jJ ¡FRINT red*» l,J) 

1100 NEXT¡FRINT¡NEXT 
1110 CLÜSEOUT¡GOTO 130 
1120 CLS 

1130 IF db=0 THEN FRINT "NO HAY BASE DE DATOS EN MEMORIA":GOTO 1690 
1140 INFUT "TESTACION DE SALIDA",3*;s*=UPPER*is*) 

1150 FOR 1=1 TO lineas 

1160 FOR j=l TO VAL < red*». 1,0) > 

1170 IF red*»i, j >=s* THEN ls=»¡es=J ¡GOTO 1200 
1190 NEXT j.i 

1190 FRINT¡FRINT "NO CONOZCO ESA ESTAC ION"¡ FRINT CHR*<7 i¡GOTO 1140 
1100 FRINT 

1210 INFUT "TESTACION DE DESTINC";d*:d*=UPPER*id* < 

1220 FÜR i=l TO lineas 

1230 FCR j=l T(i VALI red*» 1,0)) 

1240 IF red*»i, j )=d* THEN ld=i .ed=j: GOTO 1270 
1250 NEXT j,i 

1260 FRINT¡FRINT "NO CONOZCO ESA ESTA»ION".FRINT C HR*i 7)¡GOTO 1210 
1270 FRINT 

1280 INFUT " ■MAXIMfi TRANSBORDO" ; t rans 

12- 90 FRINT 

1300 IF s*=d* THEN FRINT "NO SE FROÜUCE MOVIMIENTO"¡GOTO 1690 
1310 DIM C*(50G,4) 

1 320 puntero=0: 1 ong= 1 

13- 30 c ♦ i 1,0)=STR*»O) ¡c*i 1,1 )=MR*< ls) ¡ c*» 1,2 i=5TR*»es>¡ c*< 1,8>=STR*i 0) :c*« 1,4.»=" 
1340 punt-er o=purt-ero+1 

1 350 1a=VALi c * » puntero, 1 >> : ea=VAL t c *»puntero ,2i• 

1360 IF red*<1a, ea) =d* THEN 1570 
1370 add=0 

1380 mi=l¡mf =1 meas: IF VALIc*» puntero,0>>=trans ANO puntero I THEN mi=la.m 1 =la 

1-390 FOR l=mi TO mf 

1400 FOR j=l TO VAL»red*» 1.0)> 

1410 IF red* ■ i. j / :> r ed*C 1a. ea > THEN 1 54») 

1420 IF i-la ANU VAL»c*lpuntero,8 )>=-l THEN 1480 

14- 30 IF j>=VAL« red*i i,0) > THEN 1480 

1440 inc=l ¡FOR 1=1 TO long:IF i=VAL» r*»k.1)> AND j+l=VAL»c*ík,2)> THEN k=long.in 
c=0 

145Ci NEXT: IF inc=0 THEN 1480 

1460 1 ong= 1 ong+ 1 : add=add+l . c*l long,0 , #=c*« puntero,O) ¡ c*i long, 1 )=STR*« i y ; ■;*» long,2 
>=STR*t j+1 ): c*< long, 3 )= C -TR*( + i >: c*< long. 4)=c*i puntero, 4)+STR*( add) 

1470 IF i la AND puntero»-1 THEN c*» lena, 0>=STR*i VAl I c*i puntero,O) )+l) 

1480 IF i=la AND VAL» c*< puntero.3)>=+l THEN 1540 
1490 IF J=1 THEN 1540 

1500 inc=l:FOR k=l TO long.IF i=VAHc*ik, 1)> AND j-l=VAL« c *« V ,2>) THEN k=long:in 
c =0 

1510 NEXT:IF inc=0 THEN 1540 

1520 long=long+l¡add=add+l¡c*i long.O >=c*( puntero,O) ’c*» long,1)=STR*' i "c*clong,2 
)=STR*» j-1) ¡ c*» 1 ong ,-3)=STR ♦ »— 1)' c*l long, 4 > _ c*lpuntero, 4)>STF*< add) 

1530 IF i->la AND puntero 1 THEN c*» long, Oi=8TRl< VAL‘ c*<punterOr,0> ) + l ' 

1540 NEXT j,i 

1560 IF puntero-long THEN 1340 

1560 FRINT ¡FRINT "NO HA SIDO EÚSIBl E ENCONTRAR LA SOLUCION"‘GOTO 1680 
1570 MijDE 2 

1580 FRINT "EL. TRAYECTO ES: '¡FRINT 

1590 FRINT red*»VALIc*» l,l>).VALic*<1,2)J) 

1 €-00 ni i=l¡mf=2¡mfb=l 
1610 mfb=INSTR< mf. c*» puntero, 4>, "y 
1620 IF mft>=0 THEN FRINT dt.GOTO 1660 
1630 FOR 3 =fni TO long 

1640 IF LEFT*íc*i j ,4> ,nnt«.i+ ”=LEFT*» c*» puntero, 4 i ,n.f b> THEN FRINT red*( VAL» c*i j 

,1)).VAL(c*i j 2 >) í¡ mi=j+l : j=1ong 

1€60 NEXT 

1660 mf=mfb+L 

1670 GOTO 1610 

1680 ERASE c* 

1690 FRINT¡FRINT "PULSA UNA TECLA PARA CONTINUAR" 

1700 WHILE INT E V*=" ": WENO 
1710 GOTO 20 
1720 MÚDE 2 
1730 END 














SEDE SU HHEHEEE 



ACCESORIOS 


AMSTRAD 

- Discos virgen 3” 640ptas. 

- Cinta impresora 8256 1.850 ptas. 

- Filtro contraste «Polac» 7.500 ptas. 

- Archivador discos 3” 

capacidad 5 unidades 400 ptas. 

- Archivador disco 3” 

capacidad 10 unidades 525 ptas. 

- Diskettes AMSDISK 10 unid. 

5 1/4 D.C.D.C. caja plástico 1.995 ptas. 


Julio Merino, 14 
28026 MADRID 
Tels.: 476 6013/96 42 


UN NEO SOFTWARE ¡nuevos precios: 

ORDENADORES COMPATIBLES 

PLACON. PLUS 29.900 CONTABILIDAD GENERAL CON PREVISION DE CO¬ 
BROS Y PAGOS. 

— UNO DE LOS MEJORES, MILES DE COPIAS FUN 
CIONANDO. 

— COMPLETA PERO FACIL DE MANEJAR, SIETE NI 
VELES. 

ALFA 3 39.900 ALMACEN, FACTURACION Y LIBROS IVA. 

INGE 59.900 GESTION INTEGRADA (PLACON Y ALFA 3). 

ORDENADORES MSX Y AMSTRAD CPC 128, 

PCW 8256, Y PCW 8512 

PLACON 5 28.900 CONTABILIDAD 

ALPRE 14.900 CONTROL DE ALMACEN 

GESTION 1 34.900 PLACON +DIARIO DE COMPRAS Y VENTAS (IVA) 

SEIS MESES DE MANTENIMIENTO TELEFONICO EN NUESTROS PROGRAMAS TL. (91) 25911 91. 
INFORMACION: LINNEO SOFTWARE (91) 2591186, PL. REPUBLICA ECUADOR. 6 2B016 MADRID. 


mic=r-C3Eie5a 


LOS PROFESIONALES DE 
AMSTRAD 

Programas para: 

- Arquitectos. 

- Administración de Fincas 

- Videoclubs. 

- Gestión. 

1X2, LOTO, etc. 

Programas a medida. 

c/ Silva, 5 - 4.° 

Tel.: (91) 242 24 71 - 248 50 88 
28013 MADRID 



EUROSON, S.A 

(Antigua NUEVA IMAGEN) 

SONIDO - IMAGEN 
INFORMATICA 

SOMOS MAYORISTAS 

CALIDAD, PRECIO Y SERVICIO 

c/ Montera, 24. 3.° G 
Tel.: 1911521 27 75 
28013 MADRID 


TU OFERTA MENSUAL 


INVES PC 256 K 

- UNIDAD DISCO Y MONITOR VERDE 
P..V.P. 114.900 ptas. UVA INCLUIDOI 

AMSTRAD 6128 VERDE 
8 PROGRAMAS + 1 JOYSTICK + 


ARCHIVADOR + PINZA 

portadocumentos 

P.V.P. 85.900 pía.. Ü'.'A 'NniJIDOI 





TODO EN ORDENADORES 
COMPATIBLES 


Ordenadora» para todas las clases* 

Y todos lo» güito». Marca» 

MSTIM **»''”'•* ATAR! 

BOT&»EJSüm - I BoncU.eli ~ 
Un 


HBTHI «V»v« (sintonizador 
3 bandas, plato, amplificador, equalizador, 
doble pletina ). Desde 29.900 Pts. 

Adaptadas a sus necesidades BASIC 
Manejo de ordenadores - Tratamiento de 
textos - Programación ■ Bases de datos, 
etc 

MASTER COMPUTER_ 


Cea Bermúdez, 72 (Esquina Pza. Cricto Rey) 
28040 MADRID T*ls.: 244 50 35 - 244 30 43 


INDICE DE ANUNCIANTES 


DINAMIC.45 

DRO.100 

EUROSON.25 

INDESCOMP.98 

INFOR OFIC.98 

LINNEO SOFTWARE. 98 

MASTER COMPUTER.98 

MICRO ESTRUCTURAS.98 

MICROGESA.98 

MICRO 1.2 

OPERACION CAMBIO.8, 9, 74, 75 

PROEINSA .93 

RAM-ROM .47 

REGISA.99 
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*svmmi//n£27 


^^inves PC 


commodore 


PHILIPS 


HIT3IT SONY 


en Ñ5G/SA 

tenemos mejor precio 
con total garantía, 


Sí definitivo, nadie como REGISA puede dar 
una oferta económica tan favorable, ni una 
gama tan amplia de las mejores marcas en 
monitores, ordenadores, impresoras, 
unidades de disco, periféricos, software, etc. 
Pero además del mejor precio, también damos 
la mayor garantía a todas nuestras ventas. 
Por esto REGISA es mejor precio con total 
garantía. 


I 


/ye 


Establecimientos recomendados: BAZAR DELHI Reina Cristina, 11 Barcelona - INTERJOYA 
Reina Cristina, 9 Barcelona - BAZAR TAIWAN Plza. Palacio, 19 (galerías) Barcelona - LOS 
GUERRILLEROS Islas Canarias, 128 Valencia - BAZAR DELHI M, Ruano, 5 Lleida. 


Ventas al mayor 


R GiSA 

Comercio 11 - tel. 319 93 08 Barcelona 
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US V < 

£ í&f<*» 


%r\ ri^ : ' * 

Pi 


,.; DINAMIC SOFTWARE 
' “ Adidos contra 


(91)248 7887 Tiendas 

O 


28008 Madrid... 
de 4 a 8 horas): Teléfono 
314 18 04. 


i POR FIN, 


m^>T0f.)£ M i 


Las pasadas Navidades, DINAMIC iba 
a lanzar al mercado el mejor programa 
de basket de la historia. ¿Qué sucedió? 

Os preguntaréis que hemos hecho 
durante todo este tiempo. Pues os lo 
diremos: trabajar, trabajar mucho, 
volcando nuestro mayor esfuerzo e 
ilusión en un proyecto que sólo tenía 
un fin: 

OFRECER LO MEJOR 

¡Por fin lo hemos conseguido!, nuestro j 

¿hora puedes disfrutar de una 
simulación deportiva de 
baloncesto que: 

INCORPORA 

La posibilidad de uno o dos jugadores. 

Y tres niveles de juego: Novato, 
amateur y NBA. 

PERMITE 

Tiro, tiro de 6,25, tapón, intercepción, 
robo de balón, 8 tipos de mate, 6 
estrategias de juego diferentes y 
estadísticas de porcentajes yWbiteo. 

contemplaM 

Todas ¡as infracciones: dobles, campo 
atrás, fuera, personal en ataque, 
personal en defensa. 

OFRECE 

La repetición de todas las jugadas de 
ma^grnediante una compleja rutina de 
ambición, para volver a ver la jugada 
completa ampliada en primer plano y 
aunque parezca imposible, también a 
cámara lenta. 

Un programa de ordenador que 
contiene todos los elementos 
para convertirse en un verdadero 
acontecimiento. 

Vosotros estáis deseando tenerlo y 
DINAMIC no desea otra cosa más que 
mostrarlo. 

¡Seguro que sabéis de qué programa 
estamos hablando! 













